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The Gruneberg Linkword Language System es un sistema, para enseñanza de idiomas, más rápido y 
fácil que los métodos convencionales aplicados actualmente. 

En poco tiempo, máximo 20 horas, te enseñará un vocabulario de 400 palabras y adquirirás unas buenas 
nociones de gramática. Esto te permitirá entender y ser entendido en tus viajes a lugares de habla inglesa 
o en tus contactos con personas que se expresen en ese idioma. 

Por otra parte, el Sistema Plus Data, consigue que el ordenador se convierta en un perfecto profesor que 
te explicará, orientará y corregirá, manteniendo en todo momento un "diálogo" interactivo de resulta- 
dos sorprendentes. 
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LAS PATAS CORTAS 

El rumor como la mentira tiene patas 
cortas, dice el dicho. El rumor que nos 
concierne corrió como reguero de 
pólvora el pasado año y consistía en el 
fulminante éxito de aparatos como el 
Ámstrady el Spectrum Plus. Tal éxito 
implicaba la derrota por K.O. del MSX. 
Nada de esto era cierto, pero muchos 
lectores se habrán sentido incómodos al 
ver cómo otro sistema desplazaba a 
aquél en el que tanto confíaba ély 
nosotros. Sin embargo, a la larga todo se 
esclarece y es el mismo púbhco el que 
determina el alcance y persistencia de 
un producto en el mercado. 
Al cierre del ejercicio anterior las ventas 
de aparatos MSX según información de 
los principales fabricantes y 
distribuidores del sistema-, han sido 
espectaculares, llegando a agotarlas 
existencias en muchos casos. La 
situación actual de la norma es más 
saludable que nunca y permite suponer 
que las presuntas competencias de otros 
aparatos, cuyas marcas oscilan entre un 
nombre y otro, según los vaivenes 
económicos de sus fabricantes, no es tan 
real como parece. 

El panorama como vemos es optimista 
para la norma MSX, sobre todo porque 
sus niveles de compatibilidad crecen 
(IBM acaba de lanzar un nuevo aparato 
con diskettes de 3,5 pulgadas ) 
facilitando su asentamiento. De todos 
modos este optimismo se ha de seguir 
alimentando con hechos. Por un lado los 
fabricantes creando más soñware de 
calidad y periféricos y facilitando una 
mayor información de sus productos, 
tanto a través de la pubhcidad como del 
periodismo; y por otro, los usuarios 
manteniendo su fe, haciendo oídos 
sordos a los rumores. Entre unosy otros, 
la prensa especializada sirviendo de 
vehículo tanto a fabricantes y 
vendedores, como a usuarios. Es 
cuestión de organizar bien el equipo. 

MANHATTAN TRANSFEÉ, SA 
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TONOS DE COLOR 

Me gustaría saber cómo se 
hace, por ejemplo, un cubo 
pintado por todas sus caras de 
forma que se note la diferencia 
de color entre caray cara. Si se 
puede hacer, claro. 

Oscar Vázque z Viladoms 
Sant Quinti de Medlona 
(BARCELONA) 

Supongo que a lo que te refie- 
res es a cómo conseguir dife- 
rentes tonalidades de un mis- 
mo color. Esto se puede conse- 
guir, en los MSX de segunda 
generación, con el comando 
PALETTE, que permite la defi- 
nición de la paleta de colores a 
nuestro gusto. 

En los MSX de primera ge- 
neración resulta un poco más 
complicado, aunque también 
es posible. La solución es sim- 
ple. Hay que generar una tra- 
ma de puntos de diferente co- 
lor, con una densidad propor- 
cional al tono de color que de- 
sees. 

Imagina que quieres hacer 
una línea de color naranja. 
Para ello no tienes más que di- 
bujar un punto amarillo.yuno 



rojo, une amarillo, y otro rojo, 
y así hasta acabar de dibujarla 
línea. Para conseguir un na- 
ranja más claro debes colocar 
dos puntos amarillos entre 
cada punto rojo, etc. 

Este interesante truco per- 
mite generar colores no exis- 
tentes habitualmente en los 
MSX, como son el marrón o el 
naranja. Hemos de avisar que 
en la mayoría de los casos los 
colores se complementan de 
forma que no se aprecia que es- 
tén formados por conjunción 
de otros; pero hay que probar 
todas las combinaciones para 
llegar a dominar este truco, 
muy utilizado por los progra- 
mas de Juegos comerciales. 



FOTOS DE PANTALLAS 
DE TV 0 MONITOR: 

¿Pueden decirme la forma de 
hacer buenas fotos de panta- 
llas de TV o monitor? 

Manuel Rodríguez López 

El resultado de las fotos rea- 



LA BARRERA DE LAS 
40 COLUMNAS 



A causa de que estoy reali- 
zando un programa, necesita- 
ría reducir el tamaño de los ca- 
racteres. He leído que para ello 
es necesario ocupar áreas de 
memorias reservadas o espe- 
cificadas al MSX-2, consi- 
guiendo así 64 caracteres por 
línea. ¿Es cierto esto? ¿Cómo 
puedo conseguirlo? 

José Florencio Sánenos 
Rúa 

Vlgo (PONTE VE DRA) 

En primer lugar no com- 
prendemos por qué nos hablas 
de MSX-2 (segunda genera- 
ción de MSX), ya que estos 
cuentan con pantalla de 80 co- 
lumnas. Para conseguirlo no 
hay más que teclear WIDTH 
80. 

Suponemos que te refieres a 
las zonas de memoria del 
MSX-DOS (sistema operativo 
de disco MSX). La respuesta a 
tu pregunta es sencilla; pero 
no tan sencilla de llevar a cabo. 

En primer lugar, debes sa- 
ber que el VDP ( chlp de panta- 
lla) de los MSX de primera ge- 
neración 



Jar con 40 columnas. Por lo 
tanto es imposible hacerlo tra- 
bajar con más de 40 columnas. 

SI deseas utilizar 64 colum- 
nas sólo te caben dos opciones: 
cambiar el VDP, o bien no utili- 
zar caracteres. 

No utilizar caracteres quie- 
re decir que no se pueden utili- 
zar los caracteres normales 
(los que utiliza el comando 
PRINT), sino que debemos de- 
finir un set complementarlo y 
dibujar los caracteres. 

En los MSX de primera ge- 
neración es posible simular 64 
columnas en SCREEN 2 si di- 
bujamos cada uno de los carac- 
teres como una trama de4x8 
caracteres. Este efecto se pue- 
de lograr fácilmente median- 
te el macrocomando DRAW; 
pero es muy lento, por lo que se 
precisa de una rutina en en- 
samblador. 

Nuestro equipo de progra- 
madores ya está trabajando, 
desde hace algún tiempo en la 
generación de esta rutina; por 
lo que esperamos que, no den- 
tro de demasiado tiempo, po- 
damos incluir dicha rutina en 




fizadas sobre una pantalla de- 
pende mucho de las condicio- 
nes en que ésta sea tomada. Te 
enumeramos a continuación 
algunas normas a tener en 
cuenta a la hora de realizar las 
fotos. 

En primer lugar intenta evi- 
tar todo tipo de reflejos en la 
pantalla. Para ello deja a oscu- 
ras la habitación en la que se 
encuentre la pantalla. Debido 
a esto debes tomar también la 
foto sin flash. 

Ajusta los controles de brillo 
y contraste del monitor de 
modo que la imagen adquiera 
un colorido brillante; pero no 
exagerado. 

Ajusta la cámara a una dis- 
tancia de unos 40 cm. de la 
pantalla. Las fotos resultarán 
mucho más claras si las fijas 
con un trípode. 

Selecciona una velocidad en- 
tre 1/30 y 1/60 de segundo y co- 
loca el diafragma entre 2 y 4. 
Estas dos últimas especifica- 
ciones están indicadas para 
una película de sensibilidad 
normal, de 100 ABA. 

Ya sólo te queda disparar. 
Como te hemos dicho antes, 
los resultados pueden variar 
dependiendo de las condicio- 
nes en que realices la fotogra- 
fía. Asimismo, variarán en 
caso de que utilices un macro o 
algún otro objetivo especial. 



VIDEO INVERSO EN 



Poseo un ordenador PHI- 
LIPS MSX-2 desde hace unos 
meses y me estoy dedicando al 
estudio serio de la informática 
con vistas a hacerme mis pro- 
pios programas. Todo ello en 
BASIC. Al entrar a mi aparato 
me encontré con una pequeña 
pega: ¿cómo poder conseguir 
textos en VIDEO INVERSO en 
SCREEN 0 y WIDTH 80? 

Manuel Renedo Gil 
Cruz de Tenerife 



la programación todo cuanto 
puedan ya que es ésta la única 
forma de utilizar al máximo 
las posibilidades de vuestro or- 
denador. 

Ya comentamos en otra oca- 
sión cómo conseguir vídeo in- 
verso en los MSX (de primera 
generación ), por lo que no tra- 
taremos en detalle cómo fun- 
ciona el SET de CARACTERES 
en la VRAM. Simplemente In- 
cluimos a continuación el pro- 
grama que imprime carac- 
teres en vídeo Inverso. Para 
ello debes imprimir cada ca- 
rácter más el código 128 (ob- 
serva el hstado). Recuerda que 
pierdes los caracteres gráfi- 
cos. Puedes mejorar, sin em- 
bargo, el programa con poco 
que te lo propongas. 

10FORX= 4096T08119 
20 VPOKE X + 1024, VPEEK 
(X)X0R2SB 
30NEXTX 

40 At = "Este mensaje apare- 
ce en vídeo Inverso". 
60F0RX= 1 TOLEN(AS) 
60 PRINT CHR$ (128+ASC 
(MID$(A$,X1))); 
70NEXTX 



¿REOLAS DE 
NUESTROS 



En primer lugar hemos de 
felicitarte por tu empeño en 
desarrollar tus propios pro- 
gramas de utilidad, y anima- 
mos a todos a que se dediquen a 



Quisiera que me respondié- 
rais a algunas preguntas so- 
bre vuestro concurso de pro- 
gramas. 

-¿Se pueden mandar pro- 
gramas para unidades de dis- 
co? 

-¿Existe algún límite en ex- 
tensión? 

Carlos Márquez Reyes 
AT.MTBBTA 



Hemos de deciros, a ti, y to- 
dos los interesados en nuestro 
concurso de programas, que 
no hay ninguna limitación te- 
mática en nuestro concurso. 
Así, tampoco hay limitación de 
memoria, aceptándose por 
tanto, los programas de orde- 
nadores de la segunda genera- 
ción. 
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AMPLIACION DE MEMORIA 
ENELHB-lOl/P 



Evidentemente, la mayoría 
de nuestros lectores no tienen 
unidad de disco, por lo que la 
mayoría de los programas que 
publiquemos serán para orde- 
nadores con cassette; pero re- 
sulta Interesante que nos en- 
viéis programas de todo Upo, 
para así poder satisfacer a to- 
dos los lectores de una forma 
equitativa. 

Evidentemente, los criterios 
seguidos por nuestro Jurado 
son múltiples, y el hecho de 
que no hayamos publicado an- 
teriormente programas en 
disco, ha sido que no hemos re- 
cibido programas de la sufi- 
ciente calidad. Sí, sin embargo, 
hemos pubUdado varios artí- 
culos dedicados a este tema, al 
MSX-2, y los otros muchos 
apartados que podemos en- 
contrar dentro del mundo de 
losMSX. 




SISTEMA OPERATIVO 



Tengo un Spectravídeo SV- 
728. ¿Es posible trabajar con 
el sistema operativo MS-DOS? 

Mikel Amunarrlt 
Puenterravía 
(GUIPUZCOA) 

Los ordenadores MSXno so- 
portan el sistema operativo 
MS-DOS, ya que este sistema 
operativo se encuentra sólo 
disponible en ordenadores de 
1 6 bits, como el IBM PC y com- 
patibles. Los MSX cuentan con 
una adaptación de este siste- 
ma operativo, que es lo que co- 
nocemos como MSX-DOS, y 
que ha sido desarrollado por 
Microsoft, que también desa- 
rrolló el MS-DOS. 

Lamentablemente, los pro- 
gramas que corren bajo siste- 
mas operativos MS-DOS no lo 
hacen sobre MSX-DOS; pero 
no por culpa del sistema ope- 
rativo, ya que el MSX-DOS 
mantiene la compatibilidad de 
las llamadas de la BIOS, sino 
por culpa del Z-80A, incapaz 
de ejecutar las instrucciones 
del hitel 8088. o del Intel 8086. 



Poseo un Sony HB-101P con 
32 Kb de RAM (+ 16 Kb de 
VRAM), ROM de 48 Kb ( inclui- 
dos 16 Kb del Personal Data 
Bank). Ante la imposibilidad 
de cargar programas de más 
de 32 Kb, adquirí un cartucho 
de ampliación de memoria. La 
ampliación permite cargar 
programas de 64 Kb como 
Alien 8; pero sin embargo se 
"cuelga" con otros como 
NightShade. ¿Por que sucede 
esto? ¿Cómo se puede solucio- 
nar? 

Rafa llores Toldi 



El problema que comentas 
se debe a la especial configura- 
ción de la memoria que tiene 
tu ordenador, y a que los pro- 
gramas que comentas (los que 
no funcionan), no hacen un 
uso correcto de las rutinas de 
paginación de memoria. En 
primer lugar hemos de agra- 
decerte que nos enviases los 
mapas de memoria de tu orde- 
nador (que reproducimos a 
continuación ), ya que nos ha 
facilitado en gran medida el 
poder responder a tu carta. 
Aprovechamos estas líneas 
para pedir a otros consultan- 
tes que nos envíen el máximo 
de información Junto con sus 
dudas. No nos basta con saber 
que un programa no funciona 
para saber cuál es la posible 
causa. 

El problema es fácil de loca- 
lizar y modificar si tienes unos 
ligeros conocimientos de len- 



guaje ensamblador. Muchos 
programas presuponen que 
los 64 Kb del ordenador están 
en un mismo SLOT. Esto ocu- 
rre en la mayoría de los MSX; 
pero no en todos. Se utiliza una 
rutina similar a la que inclui- 
mos a continuación. 

(1) LNA, (*A8) 

(2) AND FO 

(3) LD B,A 

(4) SHRA 
SHRA 
SHRA 
SHRA 
SHRA 

(5) ADDA, B 
(8)0UT(#A8),A 
(7)RET 

En primer lugar carga el 
banco que actualmente se esté 
utilizando. El programa se 
basa en que actualmente el 
programa esta en RAM. En la 
linea 2 ( evidentemente los nú- 
meros están solo para aclarar 
la explicación ) eliminamos 
los 4 bit menos significativos 
del número de banco. Es decir, 
nos quedamos sólo con el códi- 
go de banco de las dos zonas de 
RAM ( de los 8 bits, la mitad su- 
perior, que corresponden a los 
32Kb superiores de la memo- 
ría, ocupada por la RAM). En 
la línea 4 desplazamos 4 luga- 
res hacia la derecha el código 
de los bancos de RAM, y en la 
linea 5 le sumamos los 4 bits 
superiores. Hemos conseguido 
de este modo una copla de los 4 
bits superiores en los 4 bits in- 




feriores. Si al comenzar el pro- 
grama en la parte superior ha- 
bía RAM, la habré ahora en la 
zona inferior. En la línea 6 co- 
nectamos el banco calculado y 
en la 7 acabamos la rutina. 

Como ves, esta rutina no 
funcionará en tu aparato. So- 
lucionar este problema no es 
dlficil. En primer lugar debes 
localizar en el programa (con 
ayuda de un desensamblador) 
una rutina similar a esta. Y 
sustituirla por un: 

LDA#60 

OÜT (#A8), A si utilizas el 
SLOT 1 para conectar la am- 
pliación o bien 

LD A, *AO 

OÜT (*A8), A si utilizas el 
SLOT 2 para conectar la am- 
pliación. 

Esperamos que con esto 
consigas hacer funcionar to- 
dos tus programas. 
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Input SOutput 



En los MSX sólo disponemos 
de 28 Kb si trabajamos en BA- 
SIC, y dispondremos del resto 
de la memoria si trabajamos 
en código máquina. 

Si trabajamos en COBOL, al 
compilar el programa, es de- 
cir, traducirlo a código máqui- 
na; ¿podremos disponer de 
toda la memoria?, es decir, ¿en 
un MSX-2 de 128 Kb podemos 
hacer un programa de 100Kb? 

¿Es verdad que los discos 
grabados en otros MSX no car- 
gan en el Spectravideo 
XTRESS? 

Javier Uro* y José A. 



Como bien decís, en BASIC 
sólo contamos con 28 Kb de 
memoria ( 24 si está conectada 
la unidad de disco). Para utili- 
zar el resto de la memoria de- 




bemos trabajar en ensambla- 
dor. Como ya hemos comenta- 
do en anteriores ocasiones, el 
Z-80, chip que controla los 
MSX de ambas generaciones, 
sólo puede trabajar con 64 Kb 
de memoria. Esta es la memo 
ria máxima accesible desde el 
sistema operativo. Debemos 
decirte, muy a pesar nuestro, 
que probablemente no puedas 
superar los 64 Kb aunque pro- 
grames en COBOL. Unicamen- 
te podrías superar esta barre 
ra si tu compilador de COBOL 
fuese capaz de manejar los 
bancos de memoria No cono- 
cemos ningún compilador de 
COBOL MSX que maneje los 
ban eos; pero al ser éste un pro - 
grama de poca difusión pue 
den existir otras versiones no 
conocidas por nosotros. 

Tu segunda pregunta es un 
poco mas complicada de res 
ponder. Los discos «normales- 
son compatibles, tanto en el 
Spectravideo X'Press, como en 
cualquier otro MSX De esta 
manera, todo programa puede 
pasarse de un MSX a otro. Sin 
embargo, algunos MSX, como 
los nuevos modelos de X'Press 
o los MSX-2, incorporan uni- 
dades de alta capacidad. Por 
ejemplo, la unidad de alta ca 
pacldad de los MSX-2 permite 
almacenar 720Kb en un solo 
disco. Evidentemente, este dis- 
co no puede ser leído con un 
MSX de la primera genera 
ción, que sólo lee 360 Kb. Sin 
embargo, con el MSX-2 puedes 
grabar también discos de 360 
Kb (las unidades de alta capa- 
cidad pueden grabar en los dos 
formatos). En resumen: si de- 
seas que un disco pueda ser leí 
do por otro MSX debes grabar 
lo en formato de 360 Kb. Dirí- 
gete al manual del DISK-BA 
8IC o del MSX-DOS para saber 
como efectuar estas grabacio- 
nes. 






SKY HUNTER. ün magnifico juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que ha de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pte. 



CON GARANTIA 



VAMPIRE . Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pte. 




LORD WATÜ0N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas Los obstáculos fantásticos y el vo- 
cabulario son los alicientes PVP. 1.000 pts. 



HARD C0PY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blanco y 
negro, copla spriias, redeflnlc. de colores, 
compatible con todas las Impresoras ma- 
me. PVP 2.500 Pte. 




¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 

/VIAIWTW TRANSFERS/ 



TEST DE LISTADOS. El segundo programa de 
la Serle Oro es el útilísimo Test qus te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA 
PVP. 500 Pts. 




KRYPT0N. La batalla mas audaz de las gala- U-BOOT. Sensacional juego de simulación QUINIELAS. El mas completo programa de SNAKE. Entretenido y muy divertido juego 

xlas en cuatro pantallas y cuatro niveles de submarina en la que tienes que demostrar tu quinielas con estadística de la liga, de los en el que Snake procura comer unos nume- 

diflcultad. Un Juego cuya popularidad es cada pericia como capitán de un poderoso subma- aciertos, etc e impresión de boletos. Acertar ros que la engordan. Tanto las murallas que 

vez mas grande entre los usuarios del MSX. nno de guerra. Panel de mandos, sonar, tor- no siempre es cuestión de suerte PVP 700 la rodean como su larga cola pueden ser 

PVP. 500 Ptas. pedos, etc. PVP 700 Ptas. Ptas mortales para ella. PVP 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido STAR RUNNER. Conviértete en el audaz FLOPPY. El Preguntón. Un verdadero desafio u^D fox. Un héroe solitario es lanzado a 

Juego de aventuras a través de los misterios piloto Interestelar y lucha a muerte, a a tus conocimientos de Geografía e Historia m& carrera a vida o muerte por un desierto 

y peligros que encierran los laberínticos pa- través del hlperespacio, contra las defen- española. Floppy no perdona y te costara plagado de peligros. Conseguir el combusu- 

slllo8 de una pirámide egipcia. ¡Atrévete si sas del tirano Daurus Dos pantallas y mucno superarlo. PVP 1 000 Ptas. ble para sobrevivir es su misión Diez niveles 

puedes! PVP 700 Ptas. cinco niveles de dificultad PVP. 1 .000 pts. de dificultad. PVP 1 000 pts 

Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 
Nombre y apellidos: . . 1 

I Dirección: i 

Población: CP Prov Tel.: 

i □ KRYPTON Ptas. 500,- □ SNAKE Ptas. 600,- □ FLOPPY Ptas. 1.000,- I 

1 □ UBOOT Ptas. 700- □ EL SECRETO DE LA PIRAMIDE Ptas. 700,- □ MADFOX „ „ „ Ptas. 1.000,- i 

| □ QUINIELAS Ptas. 700,- □ STAR RUNNER Ptas. 1.000,- □ VAMPIRO Ptas. 800,- 1 

i □ HARDCOPY Ptas. 25AJ- □ TE8T DE LISTADOS Ptas. 500,- □ 8KYHUNTER Ptas. 1.000,- i 

1 □ LORDWATSON Ptas. 1.000,- I 



Gastos de envío certificado por cada cassette Ptas. 70,- Remito talón bancario de Ptas a la orden de Manhattan Transfer, 8 A 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



MITSUBISHI ML-30 FD UNIDAD DE DISCOS 




Incluimos en nuestra sección BANCO DE PRUEBAS el test realizado a la unidad de discos Mitsubishi ML-30FD. Res- 
pondemos de este modo (y con otros test que estamos realizando) a las demandas de algunos lectores sobre uno de los 
periféricos más importantes de los MSX. 



PRIMERA IMPRESION 



Nada más desembalar la ML- 
30FD nos damos cuenta de que 
estamos ante una unidad singu- 
lar. Su exterior, atractivo y funcional, nos 
da una veraz impresión de las posibili- 
dades de este periférico. 

En primer lugar destaca su posición 
vertical, frente a la posición horizontal 
de la gran mayoría de unidad de disco. 
Este modo de disponer la unidad, aparte 
de original entre los MSX, resulta extre- 



madamente práctico, ya que nos permi- 
te un mayor aprovechamiento del espa- 
cio de trabajo (por lo general reducido). 



EL FRONTAL DE LA UNIDAD 

La unidad presenta una ergonomía 
bastante buena (recordamos que la er- 
gonomía es la mayor o menor capaci- 
dad de un aparato para ser usado por 
los humanos: facilidad, comodidad, 
practicidad, etc). La única duda que 
aborda al que ya ha trabajado con otras 



unidades es cómo se introduce el disco. 
En una unidad convencional esto es cla- 
ro: la parte superior del disco hacia arri- 
ba y la inferior hacia abajo. Pero en esta 
unidad, no se sabe si colocar la parte su- 
perior a la izquierda o a la derecha. Un 
rápido vistazo al manual nos saca de du- 
das: la parte superior hacia la izquierda. 

En el frontal se distinguen varias par- 
tes importantes: el orificio para introdu- 
cir el disco 1 , el botón de expulsión del 
disco, y el led de funcionamiento del dis- 
co. También encontramos en el frontal 
el interruptor de encendido y el led que 
indica que la unidad se halla conectada. 
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Pero el punto más importante a destacar 
del frontal de esta unidad, es que incor- 
pora un espacio dedicado a poder incor- 
porar una segunda unidad. Esta segun- 
da unidad de disco se suministra por se- 
parado; pero como la alimentación, la 
carcasa y el controlador de disco ya es- 
tán incorporados en la primera unidad, 
su precio es claramente inferior. Esta 
característica la hace especialmente 
atractiva a aquellos usuarios que de- 
seen utilizar su MSX con dos unidades 
de disco de forma simultánea. 




Tabla de velocidades de la unidad de disco Mitsubishi 



Grabación de 1024 fichas de un carácter 

Grabación de un bloque de 16 Kb 

Lectura de un bloque de 16 Kb 
Abrir y cerrar un fichero 100 



>•*•••*••*•••>••■■*■■•■•■■■■. 



33 se*. 
6 seg. 
5 seg. 




Especificaciones 



Generalidades 

Consumo de energía 16 W 

Condiciones ambientales 8 - 38°C, 80 - 80% HR 

Dimensiones (AxGxH) 86 x 270 x 166 mm 

Peso 2,8 kg 



Unidad de disco microflexible 



Capacidad de almacenamiento 

No ajustado a formato 1M byte 

Ajustado a formato 720Kbytes 

Velocidad de transmisión 280K bits/seg. 

Tiempo de acceso 

Pista -a -pista 12 ms 

Acceso promedio .... 331 ms (incluyendo anillo de búsqueda y fijo) 
Tiempo de anillo fijo 15 : 




EL PANEL TRASERO 



El panel trasero demuestra una senci- 
llez extremada. En él sólo encontramos 
el cable de conexión a la red eléctrica y 
el cable que la comunica con el controla- 
dor de disco, instalado en una ranura de 
cartucho del ordenador. 

Resulta, por tanto, muy sencillo insta- 
lar la unidad, aunque no se tenga ningún 
conocimiento previo. Para instalar la 
unidad sólo hay que conectarla al con- 
trolador con un sólo cable y enchufar la 
unidad al enchufe más próximo. 

Panel delantero 



EL CONTROLADOR DE DISCOS 



El controlador de discos es el aparato 
encargado precisamente, como su 
nombre indica, de controlar a la unidad 
de disco. Este controlador, como la ma- 
yoría de los existentes sobre MSX es 
capaz de controlar dos unidades de dis- 
co. En el caso de este modelo, la segun- 
da unidad debe instalarse en la carcasa 
de la primera, en el espacio que tiene re- 
servado para ello. 

El controlador de discos de la unidad 
de Mitsubishi es el ML-30DC. Este con- 

Panel trasero 



trolador, como la mayoría de los prepa- 
rados para MSX se conecta al ordena- 
dor por medio de los conectores de car- 
tucho. Uno de los inconvenientes que 
hemos encontrado al controlador (com- 
partido por otros muchos controladores 
MSX) es su elevada altura, de modo 
que, si tenemos colocado el televisor o 
monitor detrás del ordenador inevitable- 
mente tapa parte de la imagen. 

El tipo de cable utilizado para la cone- 
xión entre el controlador y la unidad de 
disco es de tipo banda. Este tipo de ca- 
ble tiene la ventaja de ser muy flexible, y 
difícil de romper, pero, a cambio, resulta 




Botón de expulsión 

Unidad 1 

Lámpara de operación de 
la unidad 1 



Lampara de suministro de energía 
Interruptor de encendido 




Enchufe CA 



Cable CA 



Conector para el controlador de 
unidad de disco ML-30DC 
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más incómodo. Mitsubishi ha optado en 
este caso por la seguridad en su unidad 
de disco. 

ESPECIFICACIONES 
TECNICAS 

La unidad cuenta con una capacidad 
de almacenamiento en disco de 1 Mb, 
que queda reducido a 720Kb al forma- 
tear el disco. La velocidad de transmi- 



sión es de 250 Kbits por segundo, mien- 
tras que el tiempo de acceso pista a pis- 
ta es de 12 milisegundos. 

La densidad de almacenamiento, 
como en el resto de las unidades MSX 
es de 8.700 bits por pulgada. Como de- 
talle curioso sabed que la unidad gira a 
una velocidad de 300 revoluciones por 
minuto. 

Para una mayor información os adjun- 
tamos una tabla de características téc- 



VELOCIDAD DE LA UNIDAD 

Existen muchos parámetros utiliza- 
dos para medir la velocidad de una uni- 
dad de disco; pero, indudablemente, el 
medio más eficaz para medir la veloci- 
dad de una unidad es realizar un BEN- 
CHMARK, (banco de pruebas) consis- 
tente en cronometrar diversas operacio- 
nes con los resultados a nuestros ban- 
cos de pruebas. 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 



MSX 2.' Edición 

N.°* 1,2,3,4 - 450 PTAS. 




MSX 2." Edición MSX 2.* Edición 57c MSX14 160 PTAS 

N.°* 5.6,7,8 - 475 PTAS. N.° 9,10,11,12,13 PTAS. 



V7~ 



- ^ 

^0 rLf flfi» . ■ YAMAHA a 9hW '¿j=r7J=^ 

SONY HB 501P/# 1 X ' ,t " v * ' f 

™ IZ'hm /M ■ * 1 >'■ 



MSX17 175 PTAS. 



MSX18 175 PTAS 



1 




MQMP 

wua - 


s 

~i3 






MSX23 175 PTAS 



MSX 24 175 PTAS 



MSX19.20 350 PTAS. 



MSX25.26 360 PTAS. 




Ta'- 



MSX27 225 PTAS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 



PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 
| — — — BOLETIN DE PEDIDO — . 

i Deseo recibir los números de SUPERJUEGOS EXTRA MSX 



para lo cual adjunto talón del Banco 

Nombre y apellidos 

Dirección 



n. c 



a la orden de Manhattan Transfer, SJL 



Tel.: 



L 



Población 



DP. 



Prov. 



«No se admite contrarre embolso» 
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3.° GRAN 



PROGRAMA 



CONCURSO 



DEL AÑO 




BASES 



CREA Y ENVIANOS TU PROGRAMA 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 

categorías: 

A— Educativos 

B— Gestión 

C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón-etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



CORTAR O FOTOCOPIA* 

I 



4 -No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con REM los distintos apartados del 
mismo. 

PREMIOS 

7 - MSX EXTRA otorgará los siguientes 



~1 




CATEGORIA 
PARA 



DE CARGA 



AUTOR: 
EDAD: 

CALLE: 

CIUDAD , 

N.° DE RECEPCION 



DP 



L 



premios: 
AL PROGRAMA MSX EXTRA DEL 
AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 

nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 

Programa de Gestión 10.000 pts. 

Programa de Entretenimiento 

6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 

publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

10 - Nuestro Departamento de Programa- 

ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA. 

1 1 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de enero de 1988, entre- 
gándose los premios el mismo mes. 



CONCURSO MSX 
EXTRA 

RocaiRatUe, 10-12 
bajos 

08023 Barcelona 
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CALLVIII 



MEJORARLA 




La programación en BASIC tiene sus limitaciones. En estas paginas se muestran algunas posibles soluciones. 



El problema del BASIC es que re- 
sulta fácil construir programas 
que funcionan. 
Mientras se desarrolla uno de estos, 
el programador va poniendo "parches" 
ahí donde son necesarios. El resultado 
es un programa que, en la mayoría de 
los casos, funciona mal, aunque a pri- 
mera vista no lo parezca. Por si ello fue- 
ra poco, será muy costoso depurarlo o 
modificarlo y resultará casi ininteligible 
para el resto de los mortales. 

Sin embargo, esto no implica que to- 
dos los programas escritos en BASIC 
tengan defectos notorios. Es corriente 
encontrar listados poco optimizados, 
que consumen mucho tiempo al ser eje- 
cutados y derrochan más memoria de la 
que deberían. Aquí tienes un ejemplo 
que ocurre todos los días. 



LISTADO 1 



10 a=i:b=i:c=i:d=i:e=i:f=i 

20 TIHE=0 

30 FQRX=QTQ500: 'BUCLE DE ESPERA 
40 NEXT X 
50 PRINTTIME/50 

I 



Supon que las líneas anteriores for- 
man parte de un programa más largo y 
que es importante que el bucle conteni- 
do en ellas se ejecute lo más rápido po- 
sible. Si haces RUN, observarás que el 
tiempo empleado en el proceso es de 
1.66 segundos (o algo similar). Pues 
bien, prueba a eliminar los dos puntos 
de la línea 30 y el comentario que le si- 
gue. Al correr el programa, el tiempo de 
ejecución pasa a ser de 1 .08 s. 

Se ha conseguido un ahorro sustan- 
cial, pero aún puede mejorarse. Elimina 
la línea 10 y comprobarás que el bucle 
se completa en sólo 0.98 s. Si además 
quitas la línea 40 y pones el "NEXT X" al 
final de la línea 30, el programa no varia- 
rá pero el tiempo invertido en el bucle 
pasará a ser de 0.96 segundos. 

A continuación, borra Ta "X" que sigue 
a "NEXT" y verás como el tiempo se re- 
duce a 0.78 s. 

Aún resta una modificación, que es la 
que consigue un mejor ahorro de tiem- 




po: intercala entre la "X" y el " = " el sím- 
bolo "%", correspondiente a las varia- 
bles enteras. El programa corre ahora 
en sólo 0.28 segundos, es decir, la sexta 
parte de lo que invertía el original. 

Aquí tienes un resumen de los acon- 
tecimientos: 

Programa original 1 .66 

Sin comentario 1 .08 

Sin línea 10 0.98 

Poniendo el NEXT X en la línea 

30 0.96 

Quitando la X después del 

NEXT 0.78 

Usando una variable entera 0.28 



Por todo esto, es recomendable res- 
petar ciertas normas cuando se desea 
que la ejecución sea lo más rápida posi- 
ble: 

• Las variables que se definen al 
principio de un programa son las de ac- 
ceso más rápido. 

• Los comentarios influyen negativa- 
mente en la velocidad de ejecución. 

• Es conveniente situar las rutinas de 
velocidad crítica al principio del progra- 
ma. 

Usar "NEXT" en favor de "NEXT va- 
riable". 

• Emplear, en lo posible, variables 
enteras o, en el peor de los casos, rea- 
les, en preferencia a las de doble preci- 
sión. 



LOS PROGRAMAS "ESPAGUETI" 

El abuso de instrucciones condiciona- 
les anidadas, puede conducir a un pro- 
grama enrevesado y confuso. Lo que en 
el argot se denomina programa "espa- 
gueti '. Observa la siguiente línea: 

10 IF A<2 AND B>0 AND C<1 AND 
D<1 THEN R=10 ELSE R=0 

Este ejemplo no es, ni con mucho, un 
derroche de confusión. Todos hemos 
construido programas en los que había 
líneas bastante peores que la anterior. 
De cualquier forma, sirve como ejemplo. 

Observa como se puede hacer lo mis- 
mo empleando algo más corto y, por 
consiguiente, más claro: 

10 R=-10*(A<2)*(B>0)*(C <1)* 
(D<1) 

Sin lugar a dudas, existe cierto desco- 
nocimiento sobre los operadores lógi- 
cos del BASIC, a pesar de que todos los 
manuales que acompañan a las máqui- 
nas son lo suficientemente claros al res- 
pecto. Prueba de ello es que se siguen 
recibiendo listados con líneas como: 

10IFAO0 THEN... 

Naturalmente se puede conseguir lo 
mismo con: 

10 IF A THEN... 

Cosas como éstas no pueden ser ta- 
chadas de grandes errores, pero dicen 
bastante sobre la falta de cuidado (o de 
preparación) del que los comete. 

Sin ir muy lejos, hace unas semanas 
se recibió un programa que conmutaba 
el tipo de SPRITE en plena ejecución. 
Como probablemente sabrás, no es po- 
sible emplear la instrucción SCREEN 
para cambiar el tipo de SPRITE sin bo- 
rrar todas las figuras definidas. Pues 
bien, en el listado en cuestión se aprove- 
chaba el hecho de que el registro 1 del 
VDP determina el tipo de SPRITE, así 
pues es suficiente con "encender" el bit 
uno del referido registro para ampliar los 
SPRITES, si aún no lo estaban. La argu- 
cia empleada era esta: 

10A$=BIN$(VDP(1)) 

20MID$(A$(7,1))="1" 

30 VDP(1)=VAL("&B"+A$) 

La solución es ingeniosa, pero es mu- 
cho más simple hacer: 

10VDP(1)=VDP(1)OR3 

Por otra parte, si lo que se desea es 
cambiar a cualquier tipo y/o ampliación, 
habrá que usar: 

10 VDP(1)=No. de TIPO+(VDP(1) 
AND252) 
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Si no tienes muy claro el funciona- 
miento de los operadores lógicos, te re- 
comiendo encarecidamente que consul- 
tes tu manual, que seguramente conten- 
drá más información de la que se podría 
dar a través de estas páginas. 

INSTRUCCIONES "ON" 

Dos instrucciones que no se usan lo 
que deberían son ON GOTO y ON GO- 
SUB. 

Así, es corriente encontrar listados 
con líneas parecidas a estas: 



LISTADO 2 



1 IF A=l THEN 10 

2 IF A=10 THEN 20 

3 IF A=100 THEN 30 

4 IF A=1000 THEN 40 
IF AM0000 Tr 



Observa que todas las líneas anterio- 
res pueden ser sustituidas por una sola: 

1 ON 1 +LOG(A)/LOG(10) GOTO, 10, 
20, 30, 40, 50 

Otra instrucción poco utilizada es ON 
KEY GOSUB. 

Supón que estás construyendo un 
programa en el que el usuario tiene que 
entrar datos desde el teclado (una aaen- 
da, por ejemplo). En este caso será útil 
que el operador pueda, siempre que lo 
desee, dejar la operación que estaba 
ejecutando y solicitar, digamos, una 
pantalla de ayuda. Está clara la ventaja 
que supone usar ON KEY GOSUB para 
detectar las interrupciones y efectuar la 
función reclamada por el usuario. 

Tras la pulsación de una de las teclas 
de función, es muy probable que la pan- 
talla sea borrada y se aborte la tarea que 
se estaba realizando en el momento de 
la interrupción. El problema es que ON 
KEY GOSUB actúa como subrutina y 
espera encontrar un RETURN al final. 
Puesto que suele ser imposible volver al 
mismo punto desde el que se partió, lo 
normal es pasar la ejecución a la parte 
principal (típicamente al menú), usando 
un RETURN seguido de un número de 
línea. 

Hasta aquí todo va bien, pero hay que 
tener presente que las llamadas a su- 
brutinas almacenan la línea de retorno 
en la pila del BASIC. Teclea estas I íneas 
y lo comprobarás: 

10 GOSUB 20 

20 GOSUB 10 

Como ves, si no se desapilan correc- 
tamente todas las llamadas a subrutinas 
se termina por llenar la memoria con da- 
tos inútiles. 

La solución es emplear otra instruc- 
ción "ON": ON ERROR GOTO. 



En efecto, sólo hay que poner al final 
de la rutina de interrupción una línea 
como: 

20 RETURN 20 

Cuando el programa ha desapilado 
todas las llamadas, se produce un error 
del tipo "RETURN without GOSUB". Si 
con anterioridad se ha previsto una ruti- 
na de tratamiento de errores, el progra- 
ma no se detendrá y la ejecución pasará 
al tronco principal: 

1 ON ERROR GOTO 2 

2 RESUME 3 

3 1 MENU PRINCIPAL 

En fin, espero haber hecho lo suficien- 
te para que te sientas tentado a cuidar 
más la realización de los programas, sin 
conformarte con el mero hecho de que 
funcionen. Al final, todos nos agradece- 
mos haber completado un programa sin 
"parches", sobre todo después de ha- 
bernos peleado con algunos "espague- 
tis". 



LISTAD0R DE VARIABLES 

Una buena forma de pulir la progra- 
mación es observar como otras perso- 
nas resuelven sus problemas. Ya que 
los listados suelen ser largos, hay que 
empezar por hacer una relación de to- 
das las variables y anotar la función de 
cada una de ellas. A tal efecto, me ha 
parecido útil construir una rutina que sir- 
va para eso: listar todas las variables de 
un programa BASIC, especificando su 
nombre, su tipo y si son o no de conjun- 
to. 

Confío en que te será de alguna ayu- 
da. 

A continuación se incluye el listado en 
ASSEMBLER y el cargador de líneas 
DATA. Te recomiendo que grabes los 
bytes de la rutina con BSAVÉ y así po- 
drás recuperarla con BLOAD. Hay dos 
puntos a tener en cuenta. El primero es 
que se debe ejecutar el programa BA- 
SIC en su totalidad para que las varia- 
bles sean definidas. Si modificas una lí- 
nea, se borrarán todas ellas de la me- 
moria. El segundo punto es que hay que 
llamar a la rutina con ?USR (0), para sa- 
lida por pantalla, o ?USR (1 ), para salida 
por impresora. En cualquier caso, debes 
lanzarla con DEFUSER=&HD000. 



LISTADO 3 



10 


ORG 10000 


20 


LD (PILA),SP 


30 


CALL ICC 


40 


LD A, 12 


50 


CALL IA2 


60 


LD HL.SIfl 


70 


LD IY,tF6C2 


80 


LD E,0 



90 


CALL PR6 


100 


INC 


IY 


110 


INC 


IY 


120 


LD 


HL.CON 


130 


LD 


E,l 


140 PR6: 


CALL RES 


150 


LD 


HL,ENT 


180 


LD 


A,2 


170 


CALL PVAR 


180 


LO 


HL.REAL 


190 


LD 


M 


200 


CALL PVAR 


210 


LD 


HL, DOBLE 


220 


LD 


M 


230 


CALL PVAR 


240 


LD 


HL, CADENA 


ATA 

250 


LD 


A,3 


260 


CALL PVAR 


270 


RET 




280 PVAR: 






290 


CALL MES 


300 


LD 


LÜY+0) 


310 


LO 


H.(IYtl) 


320 lo: 


LD 


CUY+2) 


330 


LD 


B,(IY+3: 


340 


0R 


A 


350 


SBC 


HL.BC 


360 


ADD 


HL,BC 


370 


RET 


2 


380 


PUSH HL 


390 


POP 


IX 


400 


LD 


B,0 


410 


LD 


C,(HL) 


420 


INC 


C 


430 


INC 


C 


440 


INC 


C 


450 


DEC 


E 


460 


INC 


E 


470 


JR 


Z,SUHA 


480 


INC 


HL 


490 


INC 


HL 


500 


INC 


HL 


510 


LD 


C, (HL) 


r aa 

520 
530 


INC 


HL 


540 


LD 
INC 


8, (HL) 
BC 


550 SUMA: 


ADD 


HL.BC 


9W 


CP 


(IX+0) 


C7A 

O/U 


JR 


NZ,L0 




LD 




97V 


0R 


A 


CAA 


RET 


2 


C\ A 


CALL PRINT 


620 


LD 


A.dX+2) 


630 


CALL PRINT 


640 


LD 


A," ' 


650 


CALL PRINT 


660 


LD 


A.(IX+0) 



13 



CALLVIII 



670 


JR 


LO 


680 MES: 






690 


PUSH AF 


700 


CALL LF 


710 


LO 


A,(IF3B0) 


720 


DEC 


A 


730 


LO 


B,A 


740 12: 


PUSH BC 


750 


LO 




760 


CALL PRINT 


770 


POP 


BC 


780 


DJNZ L2 


790 


CALL LF 


800 u: 


LD 


M«L) 


810 


OR 


A 


820 


JR 


2, EXIT 


830 


CALL PRINT 


840 


INC 


HL 


850 


JR 


Ll 


860 EXIT: 


POP 


AF 


870 


RET 




880 LF: 






890 


LD 


A, 13 


900 


CALL PRINT 


910 


LD 


A. 10 


920 print: 






930 


LD 


B,A 


940 


LD 


A,(*F7F8) 


950 


QR 


A 


960 


JR 


NZ.LPRINT 


970 


LD 


A,(IF3DC) 


980 


CP 


24 


990 


JR 


NZ.QK 


1000 


LO 


A,(tF3DD) 


1010 


LD 


C, A 


1020 


LD 


A,(IF3B0) 


1030 


DEC 


A 


1040 


CP 


C 


1050 


JR 


Z, KEY 


1060 


LD 


A,B 


1070 


CP 


10 


1080 


JR 


NZ,OK 


1090 key: 


CALL I9F 



1100 


CP 3 

vi V 


1110 


JR 2 FRRflR 


1120 ok: 


LO A,B 


1130 


JP IA2 


1140 lprint: 


LD A,B 


1150 


CALL IA5 


1160 


RET NC 


1170 ERROR: 


LD SP.(PILA) 

ww vi | 1 1 i un / 


1180 


RET 


1190 sin* 




i200 


DFFM " ill VARTARl FS 


SIMPLES nv 




1210 


OEFB 0 


1220 ENT: 


DEFB 10,9 


1230 


DEFK "Enteras" 


1240 


OEFB 10,10,13,0 


1250 real: 


DEFB 10,3 


¡260 


OEFU 'Reales" 


1270 


DEFB 10,10,13,0 


1280 DOBLE: 


DEFB 10,9 


1290 


DEFH "Doble precisi V 


1300 


DEFB 10,10,13.0 


1310 cadena: 


ÚEFB i 0,9 


1320 


DEFK 'AifMMtriCW' 


1330 


DEFB 10,10,13,0 


1340 CON: 


DEFB 10,10 


1350 


DEFM "m VARIABLES DE 


CONJUNTO***' 




1360 


DEFB 0 


1370 PILA: 


3EFW 0 



LISTADO 4 



10 F0RX=4HD000TQ&HDl65 
20 REAO V$:POKEX,VALC*&H"+V$) 
30 S=S+PEEK(X):NEXT 
40 IFSO36080!THENBEEP:CLS:PRlF" 
ERROR' 

50 DATAED,73,64,D1,CD,CC,00,3E,0C,C0,A2 
, 00, 21, E6, D0,FD,21,C2,F6,1E,00,C0, 21,00 
,^0, 23, FD, 23, 21 ,45, 01 , 1E ( 01 , CD , 8B ,00, 21 
,04,01,3E,02,C0,45,D0,2l,ll,Dl,3E,04 ! C0 
,45,00,21, ID, DI, 3E, 08, CD, 45, DO, 21 ,32, Di 
,3E,03 

60 DATACD,45,DO,C9..CD,36,DO.FD,6E I 00,FO 
,66,0l,F0,4E,02,FD,46,03,B7,ED,42,09,C8 
, E5 , 00 , E 1 , Ob , 00 , 4E , OC , OC , OC , l 0 , 1C , 28 , 07 
,23, 23, 23, 4E, 23, 46, 03, 09, DD, BE, 00, 20, DB 
, OD , 7E , 0 1 , B7 , CS , CO , B3 , 00 , 00 , 7E . 02 , CO , B3 
,D0,3E 

70 DATA20, CD.B3, 00,00, 7E.00, 18, C3,F5,CD 
,AC,00,3A,B0,F3,3D,47,C5,3E,20,C0,B3,D0 
, Cl, 10, F7,CD,AC, DO, 7E, 87, 28,06,00,63,00 
,23,16,F6,F1 ( C9,3E,00,CD,B3,D0,3E,0A,47 
,3A,F8,F7,B7,2C,22,3A,DC,F3.,FE,18,20,17 
,3A,DD 

30 DATAF3.4F, iA , BO . F3 , 30 , B9, 28, 05, 78.FE 
,OA,20,07,CD,9F,00,FE,03,28,09,78,C3,A2 
, 00,78, CD.AS, 00, 00, ED,7B,64, Di, C9, 20,20 
,20, 20, 2A.2A.2A, 20, 56,41,52,49,41,42,4c 
,45, 53, 20:53,49,40,50,40, 45, 53, 20, 2A.2A 
,2A,00 

SO DATA0A..05,45,6E,7A,65,72,6l,73,0A,0A 
,0D,O0,OA,09,52,65,6l,6C,65,73,OA,0A,0D 
, 00, OA, 09, 44 6F, 62, 60,65,20, 70, 72, 65, 63 
,69,73,69,A2,6E,OA,OA,OD,00,OA,09,41,6C 
,66,61,6E,75,60,82,72,69,63,61,73 1 0A,0A 
,00,00 

100 0ATA0A,0A,2A,2A,2A,20,56,41,52 49,4 
1,42,4C,A5,53,20,44,4S,20,43,4F,4E,4A,S 
5,4E,54,4F,2A,2A I 2A,00,00,00 





POR JOAQUIN LOPEZ 




ENTRA EN LA AVENTURA 
CORRE A TODA PASTILLA 
CON 



JUEGO DE MANHATTAN TRANSFERS, S.A. 
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I. V. A. 







Se acá 



Programa de gestión realizado por Mi- 
guel Soler Campos 

a poder calcular el IVA en vuestras transacciones. Este programa os calcula 
el IVA de vuestras facturas (clientes y proveedores) y os realiza un balance de fin de año. 



Variables: 
Principales: 
z n.° de apunte 

n tipo de factura O = cliente», 8 = 
proveedores) 

ct (x, n) nombre cliente o provee- 
dor 

asases— 



5 ' IVA 

6 'POR M. SOLER 

7 'PARA HSX EXTRA 
10 5OSU83920 
20 !1AXFILES=2 
30 CLEAR 10000 
40 DIMF<(125.2).C$(i25.2).FPA(125,2!.IVA 
(Í25,2>,SF(2),S1Í2) 

50 S0TO1I2Í 

60 » Itl Sufcr. oulsado tecla ttt 
7 0 K$=INKEY$:IFK$="'THEN70 
80 RETURN 
?í ' 

100 t«t Subrut.; iiposi cían fecha" 

110 L0CATE17,5:PRINT- ':L0CATE1,5:I 

NPUT"Fecha tddllll) ";F$<X,N) 

120 IF LEN(F$(X,N)K>6THENli§ 

130 D=VAL(HID$(F$(X.N),1,2)) 

140 H=VAL{MID$!P$(X,N),3,2)) 

150 IFM<1OPH>12THEN110 

160 IFH=20RH=40RH=60RH=90Rf1=l 1THEN1B0ELS 
E170 

170 I FD< 1 ORD >3 1 THEN 1 1 0ELSE2 1 0 
180 IFM=2THEN!90ELSE200 
190 IFD< 10RD>28THEN1 10ELSE210 
200 IFD<1ORD>30THEN110ELSE21I 
210 RETURN 
240 ' 

250 ' III Subrut. leyenda ttt 

260 IF N=1THEN270ELSE2B0 

270 CLS:N$="Facturas el i entes" : L0CATE12. 

Ii PRINTNti L0CATE12, 1 1 PRINT* 

":GOTO290 

280 CLS:Nf»"Facturas proveedores" ¡LOCATE 
10,0:PRINTN$:LOCATE10,1:PRINT" 



>90 RETURN 



Secundarias: 

ni % leyenda tipo factura 

a $ Factura neta o Incluyendo Iva 

I % para calculo Iva 

af (n) suma facturas 

si Cn) suma Iva 

fb Importe bruto facturas 

ddia 



310 'til Subr. aenus secundarios ti* 
320 LOCATE10.5:PRIN 7 "!-C 1 i t n t e s" 

330 LQCATE10,7:PP!NT"2-F r o v e e d o r 
e s" 

340 PETUPN 

350 LOCATE10, 1 1 : PP!NT"4-B alances' 
360 LCCATE10.13:PF:!NT"Í-M e n u' 
370 L0CATE1 1 , 22: PRINT'Sel ecci onc opción* 
390 RETURN 
390 ' 

400 'Itl Subr. introducción meses ttt 
410 H1-0IN2M 

420 LOCATE!. 6:PPINT"De gue íes a que mes 
?■ 

430 LOCATE!. 8: PRINT'En caso de querer se 
lo un aes ponga la lisia cifra en les d 
os datos" 

440 LOCATE l , 1 1 : INPUT "Pr i ier íes i-jMl 
450 LQCATEl f 13sWP0T'01tiia íes :";H2 
460 PETUPN 
500 ' 

510 ttt Subr. presentación listados Itl 
520 CLS:GOSUB390 
530 IFN=1THEN540ELSE550 
540 CLS:LOCATEB,0:PRINT"Listado facturas 
di entes" ¡6OTO560 

550 CLS:LOCATE6,0:PRINT"Listado facturas 
proveedores" 

560 L0CATEi.2:PRINT"Ficha Cliente" 
570 L0CATE24,2:PRINT"Factura IVA" 
600 ' 

610 ' III Subr. listado facturas ttt 
620 ' 

630 SF(N)=0:SI(N)=0 

640 Y=4:SF(N)=FRA(H.N):SI(N)=IVA(W,N) 

650 F0RK=1T0X 



yva- 



ml y m8 auxiliares mes 
y, t, a auxiliares pa 

rlables linea 
Ampliaciones o mejoras: 
Ampliación n.° de facturas 
Ordenamiento por fechas, nombre o 

totales 

Impresión (No dispongo de Impre- 
sora por lo que no be podido añadir las 
lineas de programa para imprimir) 

Dado que el programa lo be realiza 
do para mi uso be becbo las fórmulas 
de cálculo del IVA repercutido par- 
tiendo del 18% que es el que debo de 
aplicar. Caso de que el % sea otro sim- 
plemente se debe variar la linea 1860 
cambiando el valor de la variable I. 

En caso de que el % de IVA repercu- 
tido sea variable deben suprimirse 
las lineas 1690 a 1710 (inc.) y copiar 
las lineas 1910 a 80O0 adaptando la 
numeración de acuerdo con las lineas 
suprimidas. 

(Estas dos últimas Instrucciones 
ya están incluidas en el 



660 M=VAL(MID$(F$(«,N),3,2)) 

670 IFH<H1ORH>H2THEN760ELSE680 

680 IFF$(M,N) = "THEN770ELSE690 

690 LOCATE0,Y:PRINTF<(ti,N) 

7 00 L0CATE8,Y:PRINTC$(H,N) 

710 L0CATE23,Y:PRINTUSING"li#*»#*i u :FRA< 

H,N] 

720 L0CATE33, Y: PRINTUSIN6"#t##M#- ; I VAÍW 
i» 

730 SF(N)=SF(N)*FRA(M,N):SI(N)=SI(N)*IVA 
ÍW.N) 

740 Y=Y+1:IFY=18THEN750ELSE760 
750 6OSUBB30 
760 NEXT W 

770 LOCATE 0, 19:PRINT"Totales :":L0CATE2 
3,19:PRINTUSIN6'llllltlt";SF(N):L0CATE33 
,19:PRINTUSING"MltiJ#";SKN) 
7 B0 L0CATE12.21:PRINT"Pulse una tecla" 
790 6OSUB70 
795 RETURN 
800 ' 
805 ' 
810 ' 

820 ' ttt Subr.caabio de pagina til 
830 L0CATE6,21:PRINT"Pulse una tecla par 



a seguir" 

94? Y=4:Z=4:GOSüP70 
850 F0FT=3T021 

860 LOCATE0,T:PR:nTSTF:ING$(40," •) 
87? NEXT T 
88? RETURN 

m ' 

W ' MI C libia de modo de licrzt.MI 

°20 COLORI ,7, TsSCREEHi: HIDTH4ff:CLS 
9:0 PETUPN 

:m ■ 

1010 ' MI flwu principa] III 

1 020 2LCSE: COLOR 1 , 1 ¿. !4: SCREEN2: QPEN"grp 

: "A3#: : CLS 

10!! L!NEí' f 2.i:)-'{83,23) > i.BFiUNEí70,l 
0M180.20V 7 ,BF 

104? LINEí<7 f n>-'208 í Í0I).t f BF:LrílE(« < 
J0)-C05 f l0fi,?,BF 

1 050 L ! NE ' 4\ r 3 ) - •' 209 . 1 83 > , 1 . 9F : L INE ' 45 
,: 7 0 , -(205.i80),'.BF 
1060 DF.A#"I»88.:2 , :C0L0RÍ:PPINT#1,"M E 
N U' 

10 7 ? DFAM"&tó5, 37" : PP IHTfi , " 1 -Intf«é. ta 
cijrai" 

1090 3FAH*b«SS, «7 w t.rt»IMTiI , "2-L i « t a 
d o 5' 

I0 a 0 SWH'baKjST'íPFINTli,^ alan 

C ? E " 

11?0 DRA«"BK55,Í7- ¡ PPINTil , H-Lecturj de 
iatcV 

111? OPAWtuSS^T'íFPINTiU'S-Brabacian 
fiatci" 

1120 8FW"bi55,07*fPS-HfT#i.»6-Fin de tra 
ba¿o" 

1130 D^riiA?.^":"!^!. "Seleccione 

cocién" 

UM 5Q8UB70 

1150 K*VAL(IW » IFK í 10RX>7THENl 140 

::¿e os ü go t di!??. 2:00. 2420. 1200.3410,3 

720 

1200 ' 

1210 •»* Lectura dita* MI 

1220 5O8UW20 

12T0 LCCATEil,l:fF!N r "LE2T!JFA DE DATQ5" 

1240 LOCATE 11,10 i PRIIT "Paisa PLAV en el 
■ 

1250 LOCAT£tt,t2sPR!NT"cas5tttB y PETL'FN 
■ 

125! L0CATE2,2i:PRWT"S; quiere volver a 
1 aer.j pulse H" 
1260 5OSUB70 

1265 IFK$=VORK$="!i'THEN1000 
1270 LOCATEll,10:PPINTSTPING*!13. n ") 



1280 L0CATE11,!2:PPINTSTPINGI(!8," ') 

12°0 LOCATEl!.l?:PPINT'Leyendo...' 

1300 0FEN'CAS:'F0RINPL'TASl2 

1310 INP'JT#2,X 

132? FORK'ITOX 

1330 N=! 

1340 IHPUT#2,F$(M) 

1350 INF'JTI2,CI'W.N) 

1360 INPUTtr. IVA'W.N) 

13 7 0 !NP'JT*2.«A'X,N! 

!380 N=2 

13"? !NP ! J T l2,F$(W,Ní 

140? INPUTi2.C$(W.N> 

141? :nf'jt«2.:va'w,n) 

1420 INPUTtr.^RAíK.N) 
1430 NE' T N 
144? CL3SEI2 

1450 LC:A T E;:.10:PFINT"VueIv3 al aenu." 
1 460 C DR T =!T21000:NE!'T:GCTG1?20 
1500 ' 

1510 ' ti* [ntrad. facturas MI 
¡520 G3SLB 5 20 

1530 L.CATE12. ::F c INT"Irt'cd. Facturas" 

1540 lqcatei:,2:PRI87"" 

1550 3O=liB3:?:LOCATEí0. , ':P':!N T "3-L . s t 
a d o s r :GQSL¡E350 
1550 BQSU870 

1570 K=VALT«MIFK<::CPr5THE*ll5é0 
:560 DN ^:GO t O15°0. 1810.2200.2420, 1020 
15°0 'MI Facturas clientes Mi 
1600 X=K*!:N=1 

1610 JFXM25THEM382Í 
1620 6OSUB240 

1630 L0CA T E1.3¡PP:^-Apunte »9:";X 
1640 GCSL'P 0 ? 

1660 LOCATE! , 7; I»PUT*C1: tntt" ; Ct ( X, NI 
1670 IFLENWtt.NH ^!5THEN1690ELSE16°0 
168? LOCATE8.7:PRIMTSTRIHM(30, i '):G0TQ 
1660 

16^0 LQCATEl ? 10iINPUT , '!iportfi ntt3';FPA< 
X,N) 

1695 1*12 

1700 Iv'A(X,N)=INT(FRA(X,N)II/100) 
1 7 10 L0CATE1,12:PRINT"! V A :';IVA(X,N) 
1720 LOCATE10,22:PPINT'Otra factura (s/n 
>?' 

1730 GQSUB70 

1740 IF K$='N*ORKÍ=VTHEN1510ELSE1750 
1750 GOTO1590 
1760 5OTO1510 
1800 ' 

1810 'MI Facturas proveedores III 

1820 X=X+1:N=2 



1830 IFXM25THEN3820 
1840 GOSUB240 

1850 L0CATEl,3:PRINT"Apunti n2:'';X 
186? GOSUB90 

1880 LOCATE 1,7: INPUT"Pr oveedor " ; C$ ( X , N ) 
1890 IFLEN(C$(X,N))M5THEN1900ELSE1910 
1900 LOCATE8.7:PRINTSTRINGI(30,' " ) : GOTO 



1910 LOCATEl ,9;PRINt "Factura neta o incl 
jye IVA ?' 

1920 LQCA T Ei,ll:PRINT"5i es neta pulse N 

.si incluye IVA pulse I (v RETURN)' 

1930 L0CATE1. 13: INPUT"¿N o I":A$ 

¡°40 IF AI="N"CRA$=VTHEN1970 

1950 IFA$="rORA$=VTHEN2050 

1960 IF AIOVORAIOTORAIOTORAIO" 

i"THENt?10 

197? L0CATE1 , lSl INPUT" lapsrtl neto";FFA( 
X.H) 

1973 1=0 

l c 90 LOCATE!. 17: INPüT"í [VA'¡1 

199? IVA(X,N)«!NT(FRA(X,N)II/100) 

200? LOCATE i , 19: PRINT* I aporte IVA;";!VA( 

X.N) 

2010 LOCATE10,22:PPINT"Otrí factura 's/n 
| )V 
2020 G0SUB7? 

2030 IF KI="N"OPK$=V T HEN1510ELSE1910 
204? EDTO1810 

2050 LOCATE! fi3: INP'JT" Imperte brut:";FB 

2060 L0CATE1.1 7 :INPUT"X ÍVA"|1 

2070 IVA(X,N)=INT((FBII)/'100*I)) 

2080 rpAa,N^=FB-IVA(X,N) 

20°0 L0CATE1, l?:PPINT n IniportB IVA: IVAÍ 

X.N) 

2100 LGCATEi . 2#: PFINT- Upórtt nata fra." 
;FRA'X,N) 

2110 LOCATEl0,22:PPINT , Otra factura li/n 
)?■ 

2120 5OSUB70 

2130 IF K$='N"OPK$=VTHEN15t0ELSE!810 
2200 ' 

2210 1 til Listados III 
2220 GOSUBW 

223? L0CATE12,!:PPINT n L i s t a d o s" 
2240 GOSUB310:LOCATE10,9:PRINT'3-B a 1 a 
n c e s- : LOCATE 10, 1 1 : PPINT-4-H e n u' 
2250 6OSUB70 

2260 K=VAL!K$):IFK<IOF'K;4THEN2250 
|22 7 0 ON K GOTO2280, 2310,2420, 1020 
2280 N=l 
2290 6OSUBS00 
2300 GOTO2210 



oonc OQi~iQC 
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2310 N=2 
2320 GOSUB500 
2330 EOTO2210 
2400 ' 

2410 'til Bal anees ttl 
2420 CLS:5OSUB?10 

2430 L0CATE12,i:PPINT"B I 1 l n : l i' 
2440 LDCATE12, 2:PRIWT"' 



24!0 LÜCATE1 1 , 5: FFINT" 1 -Bal anee ficturas 
» 

2460 L0CATElI,7jPRINT":-BalancB I V - 

24 7 0 L0CATEi!,9!PRINT'3-H e n u" 

2480 LOCATE10.21:P=IN T "S«l9!::iG"s cc::cn 
■ 

2400 GOSUB70 

2500 ysni'YViw/m.^'im:^* 

251Í ON K 6OTO26W,29ff,101l 



2610 m Balance facturas Itt 

2620 CLS:GOSL'B400 
2630 CLS:LGCATE1 1. UFFINT-Balanie factur 
as" 

2640 LCCATE11,2:PW- 

2650 5OSUB3300 

2660 SF<n*0:SF(2)*i 

26 7 0 SF(P=FRA(H,l)¡SF!2>=FRf 'k',2) 

2680 F0PN=1T02 

26°0 F0RW=1T0X 

2700 M=VAL'MID*í c «'W.N!.3.2)! 

2*10 IFK<'fl!OR'1^2THEN2 7 50ELSE2 1 20 

2720 !FN= 1THENIFFI (W, N) =" -HEN27S0EL5E2T 

40 

2730 IFN=2THENIFF$'M>=' n THEN27 7 0ELSE27 
40 

2740 SF'N»=SF'N)*FPA'W.N) 
2 7 50 NEXT H 
2760 NEXT N 
2770 GOSUB3220 

2780 L0CATE4, 6: PPINT-C1 1 entes Proveed 
ores Saldo" 

2790 L0CATE4,?:FRINTU5ING"########":SFíl 
) 



2800 L0CATE17, 9¡ PPINTUSING"########" ; SF ! 

2) 

2810 LOCATEZ 4 ». 9: PPINTUSING" ; SF f 
1)-SF(2). 

2820 LQCATE2 r 2i:PRMT"Puise una tecla pa| 
ra volver al ienu" 
2830 5OSUB70 
2840 SOTO2420 



2910 'til Balance I V A tí* 
2°20 GOSUB910 
2930 CLS:5OS'JB400 

2040 CLS:L0CATE12.1:PPINT"Balarce I V A 1 

2950 L0CATE12,2:PPINT 

2*60 GOSUB3300 

2970 S!<1)»I:SI(2>»0 

2981 SI(1>=!VA(W,1):5I(2í=IV£;K.2) 

2990 FQPN=1TQ2 

3000 forw=;?ox 

3010 N=VAL(H!DI(F*<M)»3,2)] 
3020 WK¡OPfri12 T HEN'3060ELSE3030 
3030 I"N=1 T HENIFF$ 'W, N • ='" T HEN70"'0EL3E30 
40 

3040 IFN< T HENIH : $'lU>= n '' T ^EN:??3E_3E:í 
50 

3050 SI(N)*SIW*IVAíMi 
3060 NE yT M 
3070 NEXT N 
3080 GOSUB3220 
30=0 L0CATE4, 3 :F*:N T " c epe'cut. Soporta 
do Saldo" 
3100 LQCATE4,9!PRINTUS¡N6'#tM#M';S! ¡ 
) 

3110 LOCATE 17, 9: PRINTUSING" tltlMIl" 5 SI ' 
2) 

3120 L3CA7E29.9:PPINTySIN&'*MM#tr:SI ; 

1 * —SI (21 

3130 LQCATE2,2i:PRINT"Pulse una tecla pa 
ra volver al ienu" 
3140 5OSUB70 
3150 BCTO2420 
3200 ' 

3210 'til Recuadro títulos balances Itf 

3220 L0CATE1,5:PRINT» 

WQU -," 

3230 L0CATE1,6:PF:INT"| 
I" 

3240 LOCATE! , 7 : PRINT" l 

HQW r 

3250 LOCATE!, 8:PRINT'| 

r 

3260 L0CATE1,9:PRINT"| 



3270 LOCATE!, 10:PRINT"| 
I' 

3280 L0CATE1, 11:PRINT" L 

"QM J " 

3290 RETURN 

3300 ' 

3301 til 

3305 FQRY=5TQ15!PRINTSTRIN6$<29," n, :NE* 
T Y 

3310 PE T URN 
3400 ' 

3410 tu Grabación dates MI 
3420 GOSUB920 
3430 CLS 

3440 LOCATE10, 1:PRINT"GRABACIDN DE ?¿ T := 
■ 

3450 LOCATEB f 10¡PRINT"Pulse c LAv , RECOF 
D en" 

3460 L0CATE9, í2:FP!NT"'el cassette v PEI 
URN." 

3465 L0CATE2,21:PP!NT , 'S: quiere volver = 
1 «enu pulse B" 
3470 5OSUB70 

34 7 5 IFKI=VORK*="r'TFEN1000 
3490 L0CATE3, 10: P^INTSTF ING* ' 23. " "1 
3490 L0CATE8, !2:PR:N T STRINGf '27, " ") 
3500 LOCATE10,10:PFIN T " Graoarjo... 



3510 
3520 
3530 
3540 
3550 
3560 
3570 
5580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
36?0 



0PEN"CAS: H FOP0L ,T ='J'AS«: 

PRINTI2, X 

FCFW=1T0X 

N=l 

PRINTI2,FKH,NÍ 

PRINTI2,C*CM) 

PRlHTt2 f IVAí«,N] 

PR!NTt2,FRA(M,N) 

N=2 

PRINTI2,F$(k'.N> 

PPINT»2,C$(W.N) 

PRINTI2.:VA'W.N) 

PRINT#2,FPA(«,N1 

NEXT W 

CL0SEI2 

LOCATE8,10:PPINTSTP:NGIí19." 1,1 
LOCATE5,10:PPIN TO Vuelvo al aenu. 



3680 FOPT=1TO1000:NEXT:GOTO1020 
3690 6OTO1020 
3700 ' 

3710 'til Fin de trabajo III 
3720 COLORIS, 4, 4: CLS: END 
3800 ' 

3810 'III Subr. exceso de datos til 




I l\UÜf\¡ II II I-' 



3820 CLS:LOCATEl,10:PRINT M Ya no caben ta 
5 datos, grábelos. ":SOTO1020 
3900 ' 

3910 'til Presentación ttt 

3°20 COLOR 1,14.14: SCREEN2 : CLS 

3930 CLOSE:OPEN"grp:"AStl 

3"40 F0RI=1T08:READ H$:L$=L$+CHR$(VAL C* 

B"*H$)):NEXT I 

3"50 SPRITE$(0)=L$ 

3960 DATA 00011000.00111100,00111100,111 
11111, 11111111,00111100.00111100.0001100 
0 

3970 LINE(25,65)-'231,135),1,BF:LINE(20. 

50>-(226,130),7,BF 

3980 FOP)(=100TO140 STEP10 

5991 READ Q$ 

4000 DRAITtii'+STRf ( X ) , 71 " : PRINTI1 , Q< 
4010 PL'TSPRITE0,(X,70).1,8 
4020 BEEP 

4025 F0RI=1T02?:NEXT 
4030 NEXT X 

4040 PUTSPRITE0, (256,209), 1,0 
4050 LINE (70, 84) - (214, 84> , 1 
4060 FORX=30TO210 STEP10 
4070 PEAD Qf 

4080 DPAW"b«"+STR$<X)+" ,91 ":PRINT#1,Q$ 
4090 PUT5PRITE0.(X,90).1.0 











4100 BEEP 

4105 F0RI=1T025:NEXT 
4110 NEXT X 

4120 PUTSPRITE0, (256,209) , 1,0 
4130 LINE (30, 103) - (214, 103) , 1 
4140 PORX=100TO140 STEP10 
4150 READ Q$ 

4160 DPAWb«"+STR$(X)+", 110":PPINT#1,Q$ 
•170 PUTSPRITE0,(X,109),1,0 
4180 BEEP 

4185 F0R!MT025:NEXT 
4190 NEXT X 

4200 PUTSPPITE0, (256,209), 1,0 
4210 DATA I, , V, , A 

4220 DATA W, I , G, U, E, L. , S, 0, L, E, R, , C, A. M, 
P,0,S 

4230 DATA H,,S,,X 
4240 FOPI=1TO1000:NEXT 
4250 KEYOFF: COLORI , 14, 1 4: SCREEN0: WIDTH40 
4260 LOCATE13,0:PPINT"Instruccione5 y 
4270 L0CATE2,2:PRINT"- Este prograia le 
peralte llevar una cuenta corriente de f 
acturas clientes v facturas proveedores, 
con indicación del IVA correspondiente." 
4280 L0CATE2,7:PRINT'- En caso de que el 
IVA repercutido nosea del 12 7. debe var 
íarse la linea 1695variando el valor de 

r- 











i." 

4290 L0CATE2, 11:PRINT"-Si el IVA repercu 
tido es variable de-be sustituir las lin 
eas 1690 a 1710 y copiar las lineas 1910 
a 2000 adaptando lanuieración de lineas 

4300 L0CATE2, 16:PRINT"- El prograaa faci 
lita los totales de facturas e IVA,así c 
oio los balances, detodo el año o parcia 
líente, de los lesesdeseados." 
4310 L0CATE11,21:PRINT-Pulse una tecla" 
4320 GOSUB60 

4500 CL5:L0CATE2,2:PRINT H - La fecha debe 
introducirse con seis cifras seguidas, 
por ej.: 6 de Junio de 1986 debe introdu 
cirse coto 060686' 

4510 L0CATE2,6sPRINT"- El prograia no ad 
■ite fechas ilógi- cas, por ej.:30 de Fe 
brero. " 

4520 L0CATE2,9:PRINT"- Los datos ^Client 
es' c *Proveedores"no adaiten más de 15 
caracteres." 

4530 L0CATE2,12:PRINT"- El núiero «axil 

o de facturas es de 125" 

4540 L0CATE8,21:PRINT"Pulse RETURN para 

coienzar" 

4550 GOSUB60: RETURN 





TEST DE LISTADO: 



Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre pág. 29. 
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- 58 


190 


-123 


420 


-165 


680 


-212 


870 


-215 


1150 


- 71 


1370 


-226 


1610 


- 63 


1850 


-136 


2060 


-194 


2330 


- 65 


6 


- 58 


200 


-125 


430 


- 89 


690 


-197 


880 


-142 


1160 


- 64 


1380 


- 80 


1620 


-139 


1860 


-245 


2070 


-206 


2400 


- 58 


} 


- 58 


210 


-142 


440 


-218 


700 


-202 


900 


- 56 


1200 


- 58 


1390 


-115 


1630 


-136 


1880 


-172 


2080 


-104 


2410 


- 58 


10 


-250 


240 


- 58 


450 


-232 


710 


-196 


910 


- 58 


1210 


- 58 


1400 

1410 


-112 


1640 


-245 


1890 


-196 


2090 


-127 


2420 


- 5 


20 


-134 


250 


- 58 


460 


-142 


720 


-178 


920 


- 81 


1220 


- 54 


-233 


1660 


-186 


1900 


- 1 


2100 


-124 


2430 


- 89 


30 


-229 


260 


-211 


500 


- 58 


730 


-221 


930 


-142 


1230 


- 83 


1420 


-226 


1670 


- 10 


1910 


- 52 


2110 


-109 


2440 


-174 


40 


- 89 


270 


- 22 


510 


- 58 


740 


-141 


1000 


- 58 


1240 


- 41 


1430 


-218 


1680 


- 36 


1920 


-239 


2120 


-225 


2450 


-160 


50 


-150 


280 


-190 


520 


-251 


750 


-220 


1010 


- 58 


1250 


-253 


1440 


-234 


1690 


-255 


1930 


-131 


2130 


- 87 


2460 


- 42 


60 


- 58 


290 


-142 


530 


-241 


760 


-218 


1020 


-180 


1255 


- 39 


1450 


-119 


1695 


- 83 


1940 


- 15 


2200 


- 58 


2470 


- 60 


70 


-223 


300 


- 58 


540 


-153 


770 


- 78 


1030 


- 13 


1260 


-225 


1460 
1500 


- 68 


1700 


-102 


1950 


- 86 


2210 


- 58 


2480 


-210 


80 


-142 


310 


- 58 


550 


-235 


780 


-168 


1040 


-213 


1265 


- 83 


- 58 


1710 


-152 


1960 


- 95 


2220 


- 54 


2490 


-225 


90 


- 58 


320 


-215 


560 


-211 


m 


-225 


1050 


-141 


1270 


-199 


1510 


- 58 


1720 


-109 


1970 


- 4 


2230 


-131 


2500 


-142 


100 


- 58 


330 


- 49 


570 


-243 


795 


-142 


1060 


-126 


1280 


-201 


1520 


- 54 


1730 


-225 


1975 


- 73 


2240 


- 65 


2510 


-113 


110 


- 6 


340 


-142 


600 


- 58 


800 


- 58 


1070 


-150 


1290 


-162 


1530 


- 23 


1740 


- 26 


1980 


-194 


2250 


-225 


2600 


- 58 


120 


- 69 


350 


-192 


610 


- 58 


805 


- 58 


1080 


-228 


1300 


-214 


1540 


-174 


1750 


-211 


1990 


-102 


2260 


-158 


2610 


- 58 


130 


-244 


360 


- 63 


620 


- 58 


810 


- 58 


1090 


-188 


1310 


- 63 


1550 


- 41 


1760 


-130 


2000 


-127 


2270 


-160 


2620 


- 5 


140 


-255 


370 


-212 


630 


-173 


820 


- 58 


1100 


- 25 


1320 


- 11 


1560 


-225 


1800 


- 58 


2010 


-109 


2280 


- 79 


2630 


- 23 


150 


-125 


380 -142 


640 


- 31 


830 


-215 


1110 


- 72 


1330 


- 79 


1570 


-235 


1810 


- 58 


2020 


-225 


2290 


-144 


2640 


-112 


160 


-162 


390 


- 58 


650 


- 11 


840 


- 16 


1120 


-114 


1340 


-115 


1580 


-208 


1820 


- 44 


2030 


- 87 


2300 


- 65 


2650 


-139 


170 


-126 


400 


- 58 


660 


-254 


850 


-214 


1130 


- 34 


1350 


-112 


1590 


- 58 


1830 


- 63 


2040 


-176 


2310 


- 80 


2660 


- 51 


180 -128 


410 


- 55 


670 


-108 


860 


- 15 


1140 


-225 


1360 


-233 


1600 


- 43 


1840 


-139 


2050 


- 6 


2320 


-144 


2670 


-144 




10 




JDOfflQC 







2680 


-189 


2820 


-100 


3010 


-254 


3150 


- 20 


3310 


-142 


3510 


-160 


3650 




J~ 


so 


4060 


-165 

i D J 


i 1 AS 
nlOJ 


130 


*0lv -¿lj 


2690 


- 11 


2830 


¿ÍJ 


3020 


-168 


3210 


- 58 


3400 


- 58 


3520 


- 75 


5660 


-198 




-190 


4070 


-252 


4190 


-?19 
en 


4500 - 59 


2700 


-254 


2840 


- 20 


3030 


-195 


3210 


- 58 


3410 


- 58 


3530 


- 11 


3670 


-115 


3950 


-172 


4080 


-105 


4200 


-251 


4510 -173 


2710 


- 58 


2900 


- 58 


3040 


-217 


3220 


- 78 


3420 


- 54 


3540 


- 79 


3680 


- 68 


3960 


-220 


4090 


-112 


4210 


- 20 


4520 - 21 


2720 


- 95 


2910 


- 58 


3050 


- 88 


3230 


-234 


3430 


-159 


3550 


-127 


3690 


-150 


3970 


- 78 


4100 


-192 


4220 


-167 


4530 -201 


2730 


-106 


2920 


- 44 


3060 


-218 


3240 


- 71 


3440 


-200 


3560 


-124 


3700 


- 58 


3980 


-165 


4105 


-138 


4230 


- 44 


4540 - 60 


2740 


- 75 


2930 


- 5 


3070 


-209 


3250 


-236 


3450 


-143 


3570 


-245 


3710 


- 58 


3990 


-252 


4110 


-219 


4240 


-105 


4550 -215 


2750 


-218 


2940 


-159 


3080 


- 59 


3260 


-237 


3460 


-251 


3580 


-238 


3720 


-241 


4000 


-103 


4120 


-251 


4250 


-115 


2760 


-209 


2950 


- 40 


3090 


-101 


3270 


-236 


3465 


- 39 


3590 


- 80 


3800 


- 58 


4010 


- 92 


4130 


-215 


4260 


-169 




2770 


- 59 


2960 


-139 


3100 


-120 


3280 


- 86 


3470 


-225 


3600 


-127 


3810 


- 58 


4020 


-192 


4140 


-165 


4270 


- 57 




2780 


-247 


2970 


- 57 


3110 


-132 


3290 


-142 


3475 


- 83 


3610 


-124 


3820 


-187 


4025 


-138 


4150 


-252 


4280 


- 35 




2790 


-117 


2980 


-164 


3120 


-129 


3300 


- 58 


3480 


-203 


3620 


-245 


3900 


- 58 


4030 


-219 


4160 


-145 


4290 


-254 




2800 


-129 


2990 


-189 


3130 


-100 


3301 


- 58 


3490 


-205 


3630 


-238 


3910 


- 58 


4040 


-251 


4170 


-131 


4300 


-106 


TOTAL: 
48942 


2810 


-123 


3000 


- 11 


3140 


-225 


3305 


-146 


3500 


-237 


3640 


-218 


3920 


- 76 


4050 


-177 


4180 


-192 


4310 


-167 
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TOKENS 







Programa de gestión realizado por 
Miguel Soler Campos 



Por fin las instrucciones del BASIC al alcance de vuestros dedos. Con sólo pulsar SHIFT y la inicial de la instrucción 
correspondiente conseguiréis que ésta aparezca en vuestros programas. 



M-ichas veces tenemos que teclear 
programas en los cuales se repiten 
una serle de instrucciones o funcio- 
nes, estas son casi siempre las mis- 
mas, las que mas se utilisan. Hay or- 
denadores, como es el caso del Spec- 
trum, en los cuales las palabras clave 
están contenidas en una tecla de tal 
forma que cuando se pulsa esta apare- 
ce sin tener que teclearla; tiene la 
desventaja de que si en un momento 
no sabemos donde está una determi- 
nada palabra clave podemos tardar 
bastante tiempo en encontrarla. La 
solución viene de mano de los ordena- 
dores PC's, en ellos los "tokens" u ór- 
denes se pueden teclear y también se 
pueden conseguir directamente pul- 
sando la tecla "ALT" con una tecla al- 
fabética. 

Con este programa be intentado 
imitar la técnica de los PC's, como los 
MSX no disponen de la tecla "ALT", be 
usado la tecla "SHIFT" para sustituir- 
la, de tal forma que pulsando dicha te- 
cla con cualquier tecla alfabética se 
obtendrá un "token". La desventaja 
de este programa es que cuando este- 
mos escribiendo en minúsculas y 
querremos escribir una ma yúscula 
no podremos utilizar la teda "8HIFT" 
si no que tendremos que usar el fija- 
dor de mayúsculas. 

Los "tokens" que generan cada te- 
cla son los siguientes: 



G 




GOTO 


J 




KBY 


M 




MID$( 
PRTNT 


P 




S 




8 CREEN 


V 




VAL 


Y 




LOTE( 


B 




BEEP 


E 






H 




HM$C 

KTT.T." 


K 




N 




NEXT 


Q 




PUT SPRITE 


T 




TMEN 


W 




WTDTH 


z 




CIBCLE( 


c 




CHUS 


F 




FOR 


I 




OTFTJT 


L 




LOGATE 


0 




OPEN 


R 




uuan 


U 




USB. 


X 




XOR 



TODAS COMBINABAS CON "S HIFT" 

He elegido las palabras que be creí- 
do de una utilización más normal, la 
mayoría se corresponden en la pri- 
mera letra con la tecla en la que es- 
tán, de forma que se baga un pooo más 
lógico encontrarla en un momento 
dado. 

XI programa lo que baca es poner un 
parche en el gancho situado en la di- 
rección eVHEDCC, a este gancho se lla- 
ma cada ves que se pulsa una tecla, de 
ahí se desvia a la dirección donde está 



la rutina en asembler, esta lo que 
hace es ins peccio nar si se ha pulsado 
la tecla "SHIFT", en caso afirmativo 
averigua si se pulsó alguna de las te- 
clas alfabéticas, de ser asi imprime 
en pantalla el "token" correspon- 
diente a dicha tecla, incrementa el 8P 
para ignorar la última tecla pulsada y 
vuelve, si no se corresponde con nin- 
guna de las teclas alfabéticas o no se 
pulsó la tecla "SHIFT* se devuelve el 
control al BASIC sin haber modifica- 
do ni ng ú n registro. 

El comienzo de la rutina está situa- 
do en la dirección 84984, se podría 
haber aprovechado más la memoria 
en el caso de los ordenadores sin uni- 
dad de disco. 

Bl programa tiene una comproba- 
ción de los datos por linea, de tal for- 
ma que si hay un error nos diga en qué 
linea y no tengamos que perder el 
tiempo mirándolas todas. Una ves que 
el programa nos haya devuelto el Ok 
tendremos que teclear DEFU8- 
R S4984. A USR C0) y la rutina se 
habrá activado, a partir de ahora cada 
ves que pulsemos la tecla "SHIFT" 
combinada con una alfabética obten- 
dremos el correspondiente "token". 



Bn los ordenadores con unidad de 
disco si queremos salir del BASIC al 
MSX DOS antes de hacerlo deberemos 
e fectu ar un POKE en la dirección 
cVHFDCC con el dato 801 , si no lo hace- 
mos al salir al MSX DOS el sistema no 
funcionará correctamente. 
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30 ? t T3KENS * 




40 ' I t 




■ t ?:c. chap'z o:eda « 




61 ' i » 




7? ' l PAPA RSX-EXTPfl * 




E? ' t t 




• t Jaén : Enere t?B7 t 




Lll "t 1 




Uj fiítMtítítttMUtílt 






=: *2 80 


IT? 1^1; C C : >'. ": LEN'ÜAí :" : I 




PCKE DI, 7 


A:3>a!*iiC.H*CH+VAíLDCATE 57,12 


¡FfiINT DI 






::-¡: r :»••::• :c i'r 


EN LA LINEA "::=M»1?:END 




170 DHM 




1S0 MEXT I 




\'-': IV} 'TSCLEAP LAS DATAS CON 


r'iTDADQ 


¿W DATA B 3ED8?2CDFD3ED632 0 .lil 






a 




230 data i, ííe¿0íc:f o D7:E02\9!4 




2*í data 'Cü4:«EMiCAf3M\9Bé 




250 :í t ^ , 3EIICÜ4i31EóB0CA",B9! 




i:" "'? = de:e?tc^'?:eí". 70 i 




271 SATA ' :::-; c :e:e;:::¿:".": : 




38f data 's:E6ercAi3D83E0:v37 




2°0 DAT* *CÜ4:«IE¿0ACA1BDB",950 




zn :a t a ":E?:ci'¿:r.E¿0BCf". 7 76 




::: sata a ::w.í?::^'.r.iz" .v.z 




::: •::::"=7E07::4:\B0B 




330 DATA , 01E620CA2DÜB!E&3\7?! 




340 DATA 'CD4101E640CA33D3\1034 


350 DATA *3E03CD41friE6B0CA\89ó 




360 DATA "T?D83Ef 4CD4 1 01E£ " f B#f 




370 [¿-a n 0:cA3FDe:E04ro¿:»,a:3 




330 DATA "?:E¿?:!>45C93E0¿V56 






400 
410 
42? 
470 

450 

4¿e 

470 
430 

4*50 

500 
510 
520 
530 
541 
550 
560 
570 
580 
5"0 



DATA 

DATA 
DA T¿ 

DATA 

DATA 

DATA 
CATA 
DATA 
DATA 
DATA 
DATA 
D¿ T A 
DATA 
DA T - 
DATA 
DATA. 
DATA 
DATA 
DA T A 



":D410:E604CAíBD8 n ,?=9 

"3E04C24101E608CA\ 7 77 

"51D83E04CD4101E6\864 

•!f Cfl57DB3E«4Cfi41 B57 

, 01E620CA3büB3Ef4\B40 

"CDí:?:Efc40CA¿3D9\:082 

" 3E04CD4 1 0 1 E¿80C A a , B97 

■ ^:i:i2Kv:?:zt\w 

B 01CA:FD83E?!::¿: : '.36- 

r 0:E:0::£ 7 5D83E?5'.e35 

"CD4101E604GA7BOB*. If4¿ 

"3E05CDA101E608CA B .778 

"91D33E05CD410:Ei".9'.7 

"10CAS 7 DS3E05CD¿:\906 

■fiE62fCA8DD83EI5\flM 

n :D¿101E640:^3D8 n .1130 

, 3E05CD4101E630CA\99B 

""DBC7«D 77 ErE:3\1443 

"CAF 7 D 7 DF2313F633".12«3 

n 333E0132A?FCElD!",1019 

■CiFiC9219FDBC3ED",i473 



¡na 

600 


DATA 


D721A4D8C3EDD721 ', 1308 


/ 4 ¿1 

610 


A A T A 

DATA 


A9D8CóEDD721AFDB , 1456 


620 


HAT A 

DATA 


MPTPAATH4 ACAP.PTPAH 1 r in 

C3EDD721B5DBC3ED , 1509 


6 30 


A AT A 

DATA 


D ATO i Ti Ti An^** P A AT fl 1 n i • 

D721BBDBCóEDD721, 1 wi 


640 


A ATA 

DATA 


C0D8CóEDD7¿lC6D8 , 1502 


650 


A ATA 


C3tDD72lCCD8C3ED ,1332 


660 


A A T A 

DATA 


■ nill ATADCTTAATAí » 4 7CC 

D721D3DBC3EDD721 , 1355 


670 


A A T A 

DATA 


D8D8CoEDD7¿lDED8", 1550 


630 


DATA 


C3EDD721E6D8C3ED , 1558 


690 


DATA 


*D72lECDBC3EDD721 i ,13B0 


7 00 


DATA 


"F2DBC3EDD 7 21FBD8 n ,1602 


710 


DATA 


DP^ p f\H7n 1 PPAHPTPA II 1 CrtT 

-0'EDD721FFD8C3ED , 1583 


720 


DATA 


D7210BD9C3EDD721 , 1156 


730 


A AT A 

DATA 


í ÍAOPTPAATA4 i nnnn » * ■ / 

11DtC3EDD721 1 "D? . 1 156 


4r 


A A T A 

DATA 


MP^PAATAí i PAPPTPA» 4 Ti ti 

C3EDD7211FD9C3ED", 1360 


750 


A ATA 

DATA 


■ f\^n< OTAOP^PAATn • II 4 1 n/I 

vi212sU°í:íUU72í 4 1 1S0 


7¿0 


DATA 


28D9C;EDD7212FD O ",1201 


770 


DATA 


"C3EDD721i4D9C:ED'.l¿Bl 


780 


A A T A 

DATA 


iif>^ñi taaaptpaatji 4 n 4 - - c 

D'213AD9C3EDD 7 4r, 1235 


790 


DATA 


"5343282342454550" . 509 


900 


A A T A 

DATA 


2343485¿24282344\4j5 


810 


A A T A 

DATA 


4154412023454C53 .509 


920 


DATA, 


" a 52023464F522023" , 434 


8,0 


A A* A 

DATA 


"474F544F20234845 .521 


340 


DATA 


"5S2í282^4 c 4E5055",515 


850 


DATA 


j4202i*B45572023 451 


860 


DATA 


"4B494C4C22234C4F",524 


870 


A AT A 

DATA 


4341544520274D49 ,502 


880 


DAiA 


4424282v4E4559w" , 498 


890 


DATA 


H 20274F50454E2223",442 


°00 


DATA 


"5052494E54202350",544 


910 


DATA 


"5554205350524954", 603 


c 20 


DATA 


"4520235245414420", 452 


930 


DATA 


"2353435245454E20\515 


940 


DATA 


"235448454E202355 n ,490 


950 


DATA 


"53522356414C2823",502 


960 


DATA 


"5749445448202358", 539 


970 


DATA 


"4F5220234C494E45 n ,524 


980 


DATA 


n 2B23434952434C45",509 


990 


DATA 


"2823" ,73 



_ 











— 







Test de listado, 



10 


- 58 


100 


- 58 


190 


-187 


280 - 


20 


370 


_ re 


460 - 45 


550 


- 46 


640 -125 


730 


-100 


820 


-209 


910 -204 


20 


- 58 


110 

120 


- 58 


200 


- 122 


290 - 


49 


380 


- 28 


470 - 63 


560 


-138 


650 -157 


740 


-142 


830 


-240 


920 -190 


30 


- 58 


- 18 


2 1 0 


-176 


300 - 


39 


3°0 


- 64 


480 - 27 


570 


-116 


660 -112 


750 


- 91 


840 


-230 


930 -215 


(I 


- 58 


130 


-136 


220 


-107 


310 - 


20 


400 


- 41 


490 -100 


580 


- 91 


670 -153 


760 


-113 


850 


-210 


940 -222 


50 


- 58 


140 


- 31 


230 


- 28 


320 - 


37 


410 


- 28 


500 - 43 


590 


-137 


680 -154 


770 


-129 


860 


- 26 


950 -213 


60 


- 58 


150 


-205 


240 


- 42 


330 - 


36 


420 


- 45 


510 - 27 


600 


-108 


690 -127 


780 


-109 


870 


-213 


960 -223 


70 


- 58 


160 


-148 


250 


- 40 


340 - 


78 


430 


- 35 


520 - 44 


610 


-154 


700 -136 


790 


-205 


880 


-238 


970 -253 T0TAL: 


B0 


- 58 


170 


-139 


260 


- 29 


350 - 


42 


440 


- 84 


530 - 52 


620 


-146 


710 -169 


800 


-204 


890 


-223 


980 -227 


90 


-58 


1B0 


-204 


270 


- 56 


360 - 


28 


450 


- 44 


540 - 81 


630 


-119 


720 -107 


810 


-212 


900 


-216 


990 - 47 10B00 
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Programa de juego realizado por M. * Teresa 
QuWén 



Debes evitar que las naves enemigas colisionen con tu nave. Cuentas para ello con tres naves de reserva; pero los 
enemigos son muchos. Los efectos gráficos están muy bien realizados. 



-J 



5 'tttttt Q.V.N.!. mu 

6 Ut cor fl.T.BL'ILLEN I 

7 'Ift oara NSX-EXTRA » 

e tmtmmmmmt 

10 DEF!NTA-Z:CLEAF4.5 7 :::' 

20 C0L0R4 .1.4:SCREEN 2,2 

30 LINE(f,Í28)-(255 f 12B) 

40 0PEN"5RP:"AStl 

50 '««« PANTALLA 1 HiHMtttlfl 

60 LINEt0,128H2K,Í28) 

70 FOF X=0 TO 255 STEF2 

B0 P5ET(X,64):NEXT 

90 FOF X=0 TO 255 STEP 2 

100 FSETÍX.6BÍ :NEXT 

110 FOF X=0 TO 255 STEP 2 

120 PSET(X,83):NEXT 

130 FOF M TO 255 5TEF 2 

140 PSET(X,122>:NEXT 

150 L!NE(Í40,64)-'.220, 127¡ 

160 LIHEii!4,64W30,í27j 

170 LINEU66, 64)-'255.°0! 

1B0 LINEOE.64W0.e0) 

1"0 REÍI WFANSFEPIF VRAH! A RAHltl 

200 C 0P X=5822 71 T C 58239! 

210 PEADV$: POKEX , VAL ' "•íH- *V$) 

220 NEXT 

230 DATA 1,0,8, ti. 90,E7.2:.?.9,CD.5o,g 
• C9 

240 DERJS D 0=5B22 7! 
250 A=USP(0) 
260 CLS 

270 PEHtmttPANTALLA ZttttttM 

280 POR X=0 TC 255 S^EP 2 

290 PSET?X,65):NEXT 

300 FOR X=0 TO 255 STEP 2 

310 PSET'X,74>:NEXT 

320 PDR X=0 TO 255 STE P 2 

330 PSET'X. 97!:NEXT 

340 LINE(139,65M220,127) 

350 LINE(115,65)-(30.127) 

360 LINE(165,65>-(255,90) 

370 LINE(8B,65)-!0,90) 

380 REMt*l»tVRA«2 A RAH2tttmt 



390 FQP y=5822" TQ 532"' 
400 READ VlíPQKEX.VAU'IH'M) 
410 NEXT 

420 DATA 1. 3,9.11, 30.EB.21.?. 8,20,59, 
0,C9 

430 DEF'JS°0=58227 I 
440 A*USR0(0) 

450 RB1 ttt SUCESION DE IHAGEHES u j c :: 
DNTALESttlItltltttttttltlttitlfttl 

460 FOF í*58214! 'O 5322:' 
470 READVItPOKEX.VALínH"*VI) 
480 NEí T 

4"0 DATA l,0,8,lí,0,8,21,B0,E3,CD,5C,0 
,C9 

500 DEFUSP»5821«' 
510 FOR X=5822 7 ' TO 58279' 
520 READV$:FOKEX,VALí'iH"*V$) 
570 NEXT 

540 DATA 1.0. 8,11. 0,8.21. 30. EB.2D, 50,0 

550 DEFüSR!s38227! 

560 '««MI SCROLL «!«»«««« 

570 RnFy=58l02" 10 58213! 

580 READVIí b CKEX,VAL<HM"*U$1 

5°0 NEX T 

600 DATA 21.0,18,2D.iC.E:.21, c i.DF.DD. 

:i, c :.B-.:.ie.:5.£.:VE, r 5,23, 7 E,DD,7 

7,0,DD.23,13 < ".-:.DD.^.0,23,DD,23,:i 

,1Í,EB,CD,5?,E3,C?,2Í,!F,18,CD,4C,E3,2 

l f F5,E2 f DD r 21,F5,E2r6,iá 

¿10 DATA C5.6,lF. 7 E. r 5.2B. 7 E.DD.77,0,D 

D,2E,10,F 7 .2B,F1.DD.".0,DD.2B.C1,10.E 

8.CD,5C.E:.C',1.0, !. 21.0.18, 11. F6.DF,C 

D.5 C ,0.C9. 1.0. 1. 11,0. 13,21, F6.DF.CD.5C 

,0.C9 

620 DEFÜSP2=58102' 

630 DEFUSR3«58145! 

640 ' IMtt F0P*A SPFITES MUI 

650 F0RX=14336 TC 15007 

660 PEADV: VPQKEX., V: NEXT 

670 DATA 0,0, 0,1, 2. 4, 12. 24, 6!, 120. 144 

,128,96,0,0,0.0,1,3.7,15,31,30.60,252, 

30.15,0,0,0,0,0 










lli — 11 




* 



680 OA'A 0.129. 192, 224, 240, 248,1X62 

rfi3,:2l,24l t f f »;#,f;.f f f¡f ( 0.:28v64 l !2, 

48,24,222, 31. 9,1, 6,0, 0,1 

6°?' DATA 0.¿,7.30.1I7.7S.éB f !2»í,f.0, 

l,f,0,0,0,!6.224.í!l,i;.2í;.á- f 2S.;2.! 

'4,7,3,f.0,0,0,0 

700 DATA 0,192,224,224,240,249, 12!, 5i 
.60.íí.255.225,0.0,0.?.?.?,?.^.f.:28 
,I?2.64,9á,4a,:43,:24,!4.2.4 

"i? data ?.0.0.?.0.?.:.:.:. :> :2,::.62 
,6B.6i.:2.2.:.-.-.:5.:5°.:0.:s.:?.:?,: 
55.::5.?.?.?.0 

720 DA T£ 3,7, i93,240,25",252.íé *3,11 

:.224,i92,0,0;0 í ?,0.0.¿,:24,:2Í,:ít.'i¡ 

4,34,4,0,0,0,0,0,0.0,0 

7 30 DA^í 0;0,70,4?,29 t 45,íl,É:.63,?5, 

207,7 ! 0,0,0.J.4.2i.2áB.112 ) 12B.2¡3.250 

,248,248,240,224,200,8,0,0,0 

740 DATA 0,16, 1. Ll, 1:5.17. 140. 34.25.1 

8,69,33,0,123. ¿4, 0.0.2,1. 1 7 ?,22. 85. 170 

,2:9.°0.164,6Ó.8,123.0.0.0 

^50 DATA 0,32. 7 2,°Í.21 7 ,10S.1BÍ.B5.40 

,¿9,8,8,4,0,0,0^,4,0,4,2,37, 65.52, 16? 

,80,140,4,17,2,0,1 

760 DATA 0.0,0,16,32,193,255,255.127, 
63,63,79,135,7,0,16,0,0,28,60,124.248, 
240, 224, 224, 192. 192, 192, 200, 208, 224, 22 
4 

770 DATA 255,255,255.255,254,252,248, 
240, 240, 240, 248, 248, 252, 254, 255, 255, 25 



f -^1 l l\UÜI\l II ll l-l 



4,24B,192,l,#,#,«,l,í,l,l,í,# t #,192,25 

3 

780 DA T A 0,0. 0,0, 1,3, 15, 63, 15. 3. 1.0,0 

,3,0,1,3,7,3!. 127,255,255,255,255,255, 
2:5. Z!3. 127,63. 15. 7. T 
7C| DATfi 2,4,?,27,í?,l?,25,12,4,4,6,2 
,f,2,í,§,224,24«, 248, 252,252,252,252,2 

48.140,240.240,224, 192,0,0»* 

80? CA T A ¡,S,:2,25,51,9?,lí3,l§3 f 63,Í 

:.::.".i.- , .?.i , .::5.::í.:ín.:4E.:!2.:54 

, 25¿.254.Z5Z, 240. 240,224,0, 0.0.0 

mta :".: ? 2. ¿,0,0,0, 

0,0,0,0.0,0,0,0.0,0.0,0,0.0,0,0.0.0,0, 

r,--. "i*,"; 'CC -CC 'CC -cr "CC «CC -c¿ 

25:.:4B,24S,:4B,:<£.248.245.:4f,224,12 

?, ::?.::°.i2?,:23,3,2.«,:2,ifi. 15.31,3: 
,¿:.¿:,i2? 

53? CATA 255.255,255.255.42,14,0,0,0, 
0, 1 : 2.2*?.2 ; E. Z £ E. 3¿5.I ¿ :, 192, 1Z C . 131, 

- - - • C . r . C -7. ;■» >•? f-l M 
.. i i . - , ¿ - , « _ , . . , v • , 3 w , D v , 3 w, S J * B . 

340 do ::¿.:=:.:-:.: 5 :,::¿.24e.:¿í. 

248, 252. 154. 255, 255, -55,255.254.252.12 

-.:::.::5.:7,i3.7:.:!.:.!?.?.<?.i:?.:: t ', 
t, .. . 

85C SATA Z ¿ ?. Z ¿ 3. Z ¿ 9. ZZ*. 1 5 Z, 129. 129. 
:,:!.l!.:i,¿:,:55,25!,255l255!¿?,¿3.63 

-~ '-- "r -cr -cr -ce -cr -ce -cr 
|B-u>i • - < bWa( ...i - ... 

-re -ce -re 
R¿-¡« r L'L " c " " c " " ,c ¿ -r > -c < nec 

-cr ice -ce -ce nec ice nrc rcr ice . 

' l I..W|..-|-._l | . . | 

1. 7.'. 129.129, 240, 255,255,255. 252. 
2 : :.22-. l c 2 

3?fl 22!. 25:. 2:3. 2:5. 53, ¿'.3. 3. 3. 

- -ce "ce -ce »tc -ce ice 

-ce -cr -ec -ce ->er ».ec -ce 'cr -ce -c 

- - - ' ' ..... . . . - ^ . , ... 

c 

65? 'itftSISOJG AFECTAOS E2=0L-*»*»» 

z : " r - : \ : - t r\ 1 7 

90G : 2 :: =123 T 3 ~M : T E C 5? 

ojg j(sf>tRV! ": m E; 

"2? c SE"v.Y\:\Er¡NE'r 

c :0 :iRaE'i00,20í,: !Pa:kt(í00,20) 

"¿? CIRSLE'l«9,3#),2lPft!írtt??,501 
: 5? 2: t 2LE'2? ,33\í:*AIN T <2?.33) 
"50 Cü?CLEí240,10),3sPAINT(240,lf] 
970 L¡SE(0.i2B?-(255.12B) 
990 *SETi0.53! 

"0 DFAW"E3 C IÍE12-2?R4E30»5F2ZF3E17P40 
R15E44F14' 

100? LI« tf ,64) - (255, 64) : PAINT '0, 62) : P 

;IN'!12B.¿1^:PAIN T (255,61) 

1010 '«« PANTALLA INFORMACION lili 



•020 PSET(2?.13 7 > 

1030 2^>í"D6E3L5CBL3ü20FB i: 3U3 :j 3D14c:p: 
E:'J14R3B17E3l5K3ür8R22D20L3U6H5O13l3ü 
20R3F5U5R12D3L3D17L3UÍ7L3U3BRÍ9BD3DÍ4G 
7.-72:4E3^-3E3 c :24L5GlD2 ,: lP3 t: 3D6E3L5 

?SET<!90.!34) 
1050 n jFAW"O20L3'J9H5D13L3L'2? !: 3 c 5L , 5 c 32'3E 
7— :21 7 -7L5L¿35L3220B-!0 C 3?1^2E2U14R 

3Di55¿L2H¿.::? : :: : -::.::! : i23L¿26f : Ar:: 

: .::"-r23E3 : i24L5E122 r l c 3 r 3::E3L5M2U4 
c 2-íE132^1L3^5" 

1060 UNE (110,130)-(146,tB8),4,B 
W'S C '.' T : CI: ': T E12. '275. 132' . 15, : 
I0B0 c 3" c: :'E13. '273. 132 ,15.9 
105g PiJTSPPlTEJ*, (235, 172), 15,9 
1100 L:NE(19,165)-(60,i81),lf,B 
llie L!NE{i4.160W65.186).i5.í 
112!7 LINE(22,!58í-(57,17BV5,8FíPRESE 
T 17, 170) : CC IN T 4I. C 

<*t««t*m**« ETAPA ! IIIIIU 
1140 :=6:C< 

1150 DNINTERVAL»300 SCSL'E 17°0 
tléf INTEPVAL ON 
IM PL'TSPRITEÍ. (112.801 
1130 P'JTSPRITEl, '123.5?" 
ll e 0 SCUKD5, 15: SOUNC, 50: S0UND9, ifi: SOU 
:::E2UN211. 5^=3^212. 3:S0UND17.1 

1200 3N 3 C =! T E S38UB Z*^ 
121? v= ?:W=2!:T=P 7 :>= 45 

122? P'J7SPRtT£B,íX.Y),Í5,.6 
.... p ü:sPR1TE 9 t t,( +é 4 ,|í) f i5,i 

1240 'J'2":"10.'X*150.-).15,6 

123? PUTSPRITEi:.tfH92,RU5,6 

1260 SPRITS 3N 

1270 A»U5RC0) 

1280 K«STICK(0] 

1295 FOF 3G=1 TC 40:NEXT 

1290 IFK=3 T HENA='JS?2'0):X=X-20:VPO l 'E59 

:¿.E:V^:Ec°1E.12:52 t D1320 

1300 IF!C«7THENA=USR3(0):X»X*8:VPOKE691 

4,16!VPOKEé918,20:5OTC1320 

1310 yPOKE¿914,0:VP^E6°13,4 

1320 I c VN 10B T HEN v = 0:X«X-1 

1330 IF H>108 THEN W=0 :X=X-2 

134? IF T M0e T HEN T = 0:X=X-3 

1350 IF RM0B THEN P= 0:X=X-4 

1360 Y=y*:¡w=W*I:T=T*I:P=R+I 

1370 X=X*7 

1380 A=ÜSP1(0):FOF QQ=1 TO 40:NEXT:5OT 
D 1220 

1390 LINE(22,168)-(!7,178U5,BF:PPESE 



T(17,i70):P»P*20 :PR!NT01,P 
1400 1=1*1 :IFI <12 THEN PET'JPN 
1410 'HllttHillllTRANSIClON 1 lili 
H20 SOSUB 2290 

1450 'mn ETAPA 2 IIMIimilll 
14A0 INTEPVAL DFFíSPRITE 0FF:B=2 
1450 ON INTERVAL=300 GOSUB 1580 
1460 P'JTSPRITEIS, (112, 1*70) ,7, 10 
14 7 0 PÜT5PRITE16.(128,170). 7 ,11 
1480 PUTSPRITE17, I 1 12, 154) ,7, 10 
1490 PUTSPRITE18, (128, 154), 7, 11 
1500 ?UT3PP.ITE19,(U2,138),7,10 
1510 '•U T S^rE20,(129. 138),7,ll 
1520 53'JNÜ5 , 15 : 50ÜND7 , 50 : SOL'NDP . 1 6 : SOU 
ND10,16:5OÜND11.50:SOUND12,0:SOUND13,1 
0 

X=0:2=17i 

V=0:W=25:T=<'4:P=186 
ON SPRITE GOSUB 20 7 0 
EOSUB1890 

A=ÜSP1'0!:5OTO 1560 
.INE'22.168^'5 ? ,r8).15,BF:PRESE 
170):P*P*20 ¡PRINTIljP 
IF : =136THEV 1560 
>U$tl$l*l$l TRANSICION 2 t** 
SOSUB 22°0 

ETAPA 3 

V c :ke 6974,76 
VPOKE 6978,80 
VPOKE 6982.68 
VPOKE 6986.72 
VPOKE 6^0,60 
VPOKE 69<54.¿4 

INTEPVAL OF^:SPRITE 0FF:E=3 
ON INTERVAL =300 SOS'JB 1770 
SOUND5,15:SOUND7,50:SOL'ND < U6:SOU 
16:SQUNÜ11,50:USING12.0:SOUND13,1 

X=0:Z=131 
1730 Y=0;W=25:T="4:R=186 
1740 ON 3FRITE GOSUB 2070 
l 7 5i? GOSUP 1890 
1760 A=ÜSP1{0):GOTO 1750 

1770 LINE(22,168)-(57,178),15.BF:PRESt 

T(17,1705:P=P*20 sPRINTfl.P 

1 7 80 IF R>=136THEN 1750 

1800 'lili FINAL t###l############ 

1910 BEEP: SCREEN 0:KEY OFF: LOCATE 5,0 

1820 PRINT" PUNTUACION: " 

1830 LOCATE22,0:PRINT P : END 

1880 'HtmiRUTINA REPETICION 

1890 PUTSPRITE8, (X,Y), 15,12 

1900 PUTSPRITE9,(X+70.W), 15,12 



1530 

1540 

1550 

1560 

1570 

1SB0 

TU7, 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1630 

lé°0 

1700 

171? 

HD10, 

0 

1720 



I 



• I 




DOnfZDOPIOC 

I l\UUl\l II II l-i 



, , 



1910 PUTSPRITE10,(X*145,Y>,»;12 
1920 PÜTSPRITE11,(I,R), 6,14 
1930 SPRITE ON: INTERVAL ON 
1940 A=USR(0) 
1950 K=STICKÍ0) 

1960 IFK=3 THEN A=USR2(0) : X=X -8 : Z=Z* . 2 

5:VPOKE6914.B:VPOKE691B,12:6CTO2000 

1970 IF<=7 THENA«USR3(0)iX«X*8iZ«2-.25 

¡VPOKE6914,16:VPOKE691B,20:GOTO2000 

1980 VP0KE69 14.0: VPQKE6? i B . 4 

1990 VPOKE6946,52:VPOKE6950, 52: VP0KE69 

54,52 

2000 IF Y>111THEN Y=0 
2010 IF WMllTHEN W=0 
2020 IF TMliTHEN T=0 
2030 X=X*4 

2040 Y=Y*B:W=H+B:T=t + 8:R=R-.1 
2050 RETUPN 

2060 '««lili COLISION llIflIHttffl 

2070 SPRITE OFF 

2080 VPQKE 6914, l24lVP0KE6918 f 124 
20'0 SÜÜMD 7,0iSDUND 6, 30: SOL'ND?. 16: SO 
UNDt0,16¡SQUMD12,56:SOUNDl3,0 
2100 PUTSPRITE 6, (120,80) ,15,7 
2110 PUTSPRITE 7,(120,301.15,8 







2120 FOR R=0 TC 100:NEXT 

2130 P'JTSPRITE 6.(116,80), 15.7 

2140 PITSPRITE 7, (124,80) ,.15,8 

2150FOR R=0 TO 100:NEXT 

2160 PUTSPRITE 6,(112,801.15,7 

2170 PUTSPRITE 7, (128,80) , 15,8 

2180 FCR R=0 TO 100¡NEXT 

2190 FUTSPPITE 6, '123.80' , 15,7 

2200 PUTSPRITE 7 , (112.80) .15,8 

2210 FOP P=0 *2 300-.NÉXT 

2220 VPflKE 6936,191:VP0KE 6°40.191 

2230 S=S*1:IFSMTHEN2270 

224f VP0KE6959*(4IS),6 

2250 PUTSPRITE1, '123.80' ) 

2260 Mito G EOTC 1170, 1520, 1710 

22^0 BOTO 1800 

2290 'til TRANSICION ETAPAS (MUI 
2300 FA:nT!0,62:,1:FA:N t (12B,¿1:.1:PAI 
NT(25S,éH,l 

2310 PSET (0,601 IÜPJHWI80R3D15R7W6U 
:5R3ül 7C £C20P;0UíP4l!5R3L'6R2D6P4D7R2D8R 

L4K:i4E:F.12F2D4K2L4D20F40L , 4P5r c 3'. , 5 c :D 
8F4D^:0D5R4:4e¿U:4F7 , J3P5D!0F5D3 r -'5L'12F 




S 



C7ZI 




7-_' c ¿D8P:4D6F4D7F:4DeF;-"J14P4" 



2320 beep:flay%'15t12?l433 m 9!*c4cec5e2 
c4def:5::cíd:cc3:apc" 

233? FCF F«! '0 3C 

2340 IWI8Rtf>:CCLffl 4, 1.4 

2350 ft«USP2C01:COL3? 1,4,1 

ZZ L J Rs'JSRKflíNEXT 

2370 COLOR 4.1.4 

2390 PETL'RN 











TEST DE LISTADO. 



5 


- 58 


190 


- 0 


410 


-'7' 


630 


-J40 


850 




1070 


- 91 


. - - - 


-242 


1500 


-270 


1720 


-100 


1 GO 0 


- 12 


2210 -17° 


6 


- 5B 


200 


- 01 


420 


-234 


640 


- 58 


360 


-185 


1080 


.1 1*5 


1290 


- 35 


1510 


-248 


1730 


- 47 


2000 


-171 


2220 - °2 


7 


- 5B 


210 


- 38 


430 


-192 


650 


-22° 


870 


-203 


1000 


_' ?- 


1300 


- 4' 


1520 


-16o 


1740 


- 21 


2012 


-127 


2270 -170 


8 
10 


- 5B 


220 


-131 


440 


-128 


660 


-116 


880 


- 58 


1100 


- 56 


1310 


-!86 


1570 


-109 


1750 


- 4 


:rj 


-121 


2240 - 12 


- 98 


230 


-219 


450 


- 0 


670 


-167 


850 




1110 


- 56 


1320 


- °3 


1540 


- V 


1760 


- 46 




-165 


2250 -122 


20 
30 


-162 


240 


-1*2 


4¿0 


-240 


6e0 


-126 


°00 


- 86 


1120 


- 77 


1330 


- =0 


1550 


- 21 


1770 


- 42 


2040 


-147 


2260 -184 


-216 


250 


-111 


470 


- 88 


690 


-185 


910 


- r 


1130 


- 58 


1340 


- B5 


15s0 


- ¿ 


1780 


- 21 


2050 


-142 


2270 -166 


10 


-224 


260 


-159 


4B0 


-131 


700 


-103 


°20 


-106 


1140 


-209 


1350 


- 82 


. w 0 


-112 


1800 


- 58 


2060 


- 5B 


22 c 0 - 58 


50 


- 58 


270 


- 0 


490 


-229 


710 


-148 


930 


- 27 


1150 


-137 


1360 


-254 


1580 


- 42 


1810 


- 38 


2070 


-173 


2300 -117 


60 


-216 


280 


-176 


500 


-126 


720 


- 21 


040 


- 28 


1160 


- 67 


:: T ? 


-168 


!5°0 


- 87 


1820 


- 21 


2080 


-170 


2310 -173 


70 


-176 


290 


-164 


510 


- 91 


730 


-118 


950 


-154 


1170 


- 13 


1380 


- T 0 


1600 


- 58 


1330 


- 16 


2000 


- 47 


2320 -229 


80 


-163 


300 


-1 7 6 


520 


- 88 


740 


- 24 


960 


- 31 


1130 


-122 


1390 


- 42 


1610 


-149 


1880 


- !8 


2100 


-174 


2330 - 13 


90 
100 


-176 


310 


-173 


530 


-131 


750 


-140 


970 


-216 


1190 


-166 


1400 


J 


1620 


- 59 


1890 


-126 


2110 


-176 


2340 -250 


-167 


320 


-176 


540 


-244 


760 


-176 


"80 


-148 


1200 


- 21 


!4!0 


- 58 


1630 


-104 


1000 


-195 


2120 


-221 


2350 - 10 


110 


-176 


330 


-196 


550 


-193 


770 


-159 


900 


-204 


1210 


-165 


1420 


-140 


1640 


-202 


1910 


- 15 


2130 


-170 


2360 - 62 


120 


-182 


340 


-254 


560 


- 58 


780 


- 8 


1000 


- 77 


1220 


-122 


!430 


- 58 


1650 


-194 


1920 


-117 


2140 


-160 


2370 - 81 


130 


-176 


350 


- 40 


570 


-119 


790 


- 98 


1010 


- 58 


1230 


-185 


1440 


- 3 


1660 


-202 


1930 


-217 


2150 


-221 


2380 -142 


140 


-221 


360 


- 22 


580 


- 88 


800 


- 35 


1020 


-250 


1240 


- 11 


1450 


- 72 


1670 


-104 


1940 


-111 


2160 


-166 




150 


-254 


370 


-204 


590 


-131 


810 


-176 


1030 


-107 


1250 


- 52 


1460 


n 

' L 


1680 


-202 


1950 


- 61 


2170 


-184 




160 
170 


- 38 


380 


- 0 


600 


- 93 


820 


-147 


1040 


-161 


1260 


- °2 


1470 


- 20 


1690 


- 9 


1960 


-105 


2180 


-221 


TOTAL: 


- 22 


390 


- 91 


610 - 44 


B30 


-244 


1050 


-147 


1270 


-111 


1480 


-244 


1700 


- 6 


1970 


-110 


2190 


-182 


180 


-203 


400 


- 88 


620 - 64 


840 


-124 


1060 


-196 


1280 


- 61 


!4°0 


- 6 


1710 


-198 


1980 


-186 


2200 


-168 


2802* 
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TREBOL 



Programa de juego realizado por 
Santiago Turrión 



Debes reorganizar el trébol rotando los círculos que lo componen. Un reto para los amantes de los rompecabezas. 



20 re* fttmmmmtmt 

20 REM * TREBOL * 
30 RE* # PE * 

40 PEM » SANTIAGO TUPRION f 
50 REM * PARA * 
60 PEM * MSX HW * 
70 REM millltIHIMHIfll 
80 PEM 

90 PEM PRESENTACION E INSTRUCCIONES 
100 PEM 

110 DEFINT C-ZíFGR 1=1 TO 10:KEY I,"": 
NXKTiCOLOR «,!,1:9CREEN 2.,0:CLS:R=66: 
B=60tATN ( l ) /45iB2*2tBiB3=3tB:B4«4tBi B5 
s5IB:A«255/lfl:F0R I=! TO 66 STEP 3: CI 
PCLE'!28,67),P-!,,,,A:CIRCLE(i03,124). 
P-I,,,.A:CIRCLE(!53.124),R-I,,.,A:NEXT 
120 SCREEN 3iOPEN"6tfi*A8 I:F0P I«2 ^0 
¡SlCQLDR I : PRESE! í 3f , BS ) : PRINTf 1 , "TRE 
B0L':F0R J»l TO 500: NEXT: T4EXT: DIW C(24 
) 

130 COLOR 4: SCREEN i:L0CATE 9,é:PRINT' 
uQUE QUIERES''" : LOCATE Il,i2íPRINT "1- 
JUGAR": LOCATE B, IBsPftINT "2- EXPERIMEN 
TAR" 

140 H*=INKE V $:IF H*="" 0P INSTRC12',H 
$)=0 THEN 140 ELSE: SCREEN 0:LOCATE 16, 
7: PPINT'ELIGE" : LOCATE !,15:PRINT»6RAB0 

DE DIFICULTAD ENTRE 1 Y 3" 
150 E«=INKEY*:IF E$="" 0P INSTR("123\ 
E$)«0 THEN 150 ELSE FOR M TO 9:Cd)« 
15:NEXT:F0R 1=10 TO 15:C(I)=4:NEXT:IF 
El«"l' THEN FOR 1=16 TO 24:C(I)=4:NEXT 

ELSE FOR 1=22 TO 24: C C I > =13: NEXT: FQP 
1=16 TO 21 S IF E$="2" THEN C(I)=4:NEXT 
ELSE C(I)=2:NEXT 

160 SCREEN 1: LOCATE 0, H:PRINT"¿NECESI 
TAS INSTRUCCIONES? S/N" 
170 B$=INKEY$:IF B$="" OR INSTRCNnSs" 
,B*)=0 THEN 170 ELSE IF INSTR ( "Nn" , B$) 
THEN LOCATE 0,11:PRINT SPC(4)j"¡UN H0 
MENTO POR FAVOR! " ; SPC (3) : SOTO 240 
180 SCREEN 0:PRINT" DEBES SITUAR LAS P 








IE2AS TAL Y COMO" : PPINT: PPINT-APARECEN 
EN LA SIGUIENTE PANTALLA. ": PRINT: PRIN 
TsPRINT" PARA ELLO PULSA PRIMERO EL NU 
MERO DE":PRINT"LA PUEDA Y A CONTINUACI 
ON EL NUMEPO':PPINT:PPINT"DEL ANGULO D 
E GIRO.' 

190 LOCATE 4,lliPRINT'- EL NUMERO DE L 
AS RUEDAS E8: "¡LOCATE 18, !3: PRINT"1":L 
OCATE lé,i3iPRIHT"2 3":L0CATE 4,!7:P 
RINT"- EL NUMERO DE LOS GIROS ES:":L0C 
ATE 14,19:PRINT"1,2,3,4,5':L0CATE 3,21 
!pRJMT"f« PULSA CUALQUIER TECLA »»' 
200 D$=1NKEY$¡IF D$="" THEN 200 ELSE I 
F Hl«"2" THEN 240 ELSE SCREEN 2:G0SUB 
280 

210 REM 

220 REM POSICION ALEATORIA 
230 REM 

240 IF H$="2" THEN SCREEN 2:G0SUB 280: 
60T0 560 ELSE K=21IRND(-TIME)+20:FOR I 
=1 TO K:C=3tRND(-TIME)*i:G=5IRND(-TIME 
)+l:ON C 60SUB 620, 660, 700: NEXT: SCREEN 
2:G0SUB 280:GOTO 560 
250 REM 

260 REM PANTALLA 



— 



270 REM 

280 GOSUB 300:GOSUB 310:GOSUB 410:GOSU 

B 420: GOSUB 430: GOSUB 480: GOSUB 490: GO 

SUB 500: GOSUB 290: GOSUB 330: GOSUB 360: 

GOSUB 370: GOSUB 450: GOSUB 440: GOSUB 32 

0:GOSUB 380:GOSUB 390:GOSUB 400: GOSUB 

340: GOSUB 350: GOSUB 470: GOSUB 460: GOSU 

B 520:GOSUB 510:RETURN 

290 CIRCLE(128,67),R,C(9),,B,A:CIRCLE( 

203,5),R,C(9),B3,B4,A:PAINT(156,17),C( 

9)¡C!RCLE(128 f 67>,R,l„B,A:CIRCLE(2í3 f 

5),R.1,B3,B4,A:RETURN 

300 CIRCLEC2B,67),R.C(!),B,B2,A:CIRCL 

E(128 ! -52),P,C(1),B4,B5.A:PAINT¡128,2) 

,C(1):CIRCLE(128,67),R,:,B,B2,A:CIRCLE 

(128,-52),R,1,B4,B5,A:RETUPN 

310 CIRCLE(128,67),R,C(2),B2,B3,A:CIRC 

LE(53,5).R,C(2),B5,,A:PAINT(100.15),CÍ 

2):CIRCLE(128,67),R,!,B2,B3,A:CIRCLE(5 

3,5),R,1,B5,,A:PETURN 

320 CIRCLE(128,67),R,C(20),B5,.A:CIPCL 

E(203, 124), R,C(20) , B2, B3, A: PAINT ( 176,7 

0),C(20):CIRCLE(128,67),R,1,B5,,A:CIRC 

LE(203, 124),P,i,B2,B3,A:RET'JRN 

330 CIRCLE(153,124),R,C(21),B,B2,A:CIR 

CLE(153,5),P,C(21),B4,B5,A:PAINT(153,6 

2),C(21):CÍRCLE(153,124),R,1,B,B2,A:CI 

RCLE(153,5),R,1,B4,B5,A:RETURN 

340 CIRCLE(103,5),R,C(15),B5,,A:CIRCLE 

(178,67), R,C(15),B2,B3,A:PAINT(150,15) 

,C(15):CIRCLE(103,5),R,1,B5,,A:CIRCLE( 

1 78 , 67 ) , R , 1 , B2, B3 , A : RETURN 

350 CIRCLE(153,5),R,C(10),B3,B4,A:CIRC 

LE(78,67) ,R,C(10) , , B, A: PAINT ( 107, 16) ,C 

(10):CIRCLE(153,5),R,1,B3,B4,A:CIRCLE( 

78, 67) , R, 1, , B, A: RETURN 

360 CIRCLE(103, 124 ) , R, C ( 1 6 ) , B, B2, A: CIR 

CLE(103,5),R,C(16),B4,B5,A:PAINT(120,6 

5),C(16):CIRCLE(103,124),R,1 5 B,B2,A:CI 

RCLE(103,5),R,1,B4,B5,A:RETURN 

370 CIRCLE(128,67),R,C(17),B3,B4,A:CIR 

CLE(53,124),R,C(17),,B,A:PAINT(80,70), 
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C(17) :CIRCLE(128,67) ,R, 1, B3.B4, ArCIRCL 

E(53,124),R,1,,B,A:RETURN 

380 CIRCLE(103,124),R,C(24),,B,A:CIRCL 

E(17B,67),R,C(24),B3,B4,A:PAINT<130,70 

> ,C(24) :CIRCLE(103, 124) , R, 1 , , B, A: CIRCL 

E(178,67),R,1,B3,B4,A:RETURN 

390 CIRCLEU53, 124) , R, C (22) , B2, B3, A: CI 

RCLE(78,67),R,C(22),B5,.A:PAINT(126,72 

),C(22):CIRCLE(153, 124) ,R, 1,B2,B3,A:CI 

RCLE (78, 67) , R, 1 , B5, , A: RETURN 

¿00 CIRCLE(128,67) ,R,C(23) ,B4,B5,A:CIR 

CLEÍ128, 186) ,R,C(23) ,B,B2, A:PAINT(12B, 

124) ,C(23) :CIRCLE(128,67) , R, 1,B4,B5, A: 

CIRCLEÍ12B, 186) ,R, 1,B,B2, A:RETURN 

410 CIRCLE(103,124),R,C(3),B2,B3,A:CIR 

CLE(28,67),R,C(3),B5,,A:PAINT(75,72),C 

(3):C1RCLE(103,124),R,1,B2,B3,A:CIRCLE 

(28,67), R,1,B5,,A:RETURN 

420 CIRCLEÍ103, 124) ,R,C(4),B3,B4. A:CIR 

CLEÍ2B, 186) ,R,C(4) , ,B, A:PAINT(56, 134) , 

C(4):CIRCLE(103,124),R,1,B3,B4,A:C!RCL 

E(28,1B6),R,1,,B,A:RETURN 

430 CIRCLE(103,124),R,C(5),B4,B5,A:CIR 

CLE(103,243),R,C(5),B,B2,A:PAINT(103,1 

81 J ,C(5í :CIRCLE(103, 1 24 ) , R, 1 , B4 , B5 , A: C 

IRCLE(103,243).R,1.B,B2,A:PETURN 

440 CIRCLE(103,124),R,C(!9),B5,,A:CIRC 

LE(178,186),R,C(19),B2,B3,A:PAINT(132, 

176),C(19):CIRCLE!103,124),R,!,B5,,A:C 

IRCLE(17B,186),R.1,B2,B3,A:RETURN 

450 CIRCLEÍ153, 124) , R, C ( 18) , B3, B4 , A: CI 

RCLE(78, 186) ,P,C(18) ,,B, A:PAINT(106. 14 

0),C(18!:CIRCLE(153,124),R,1,B3,P4,A:C 

IRCLE(7B, 186) ,R, 1 B, A: RETURN 

460 CIRCLEÍ53, 124 ) , R, C ( 12) , B5, , A: CIRCL 

E(128.186),R,C(12),B2.B3,A:PAINT(100,1 

33),C(12):CIRCLE(53,124),R,1,B5,,A:CIR 

CLEÍ128, 186) ,R, 1,B2,B3,A:RETURN 

470 CIRCLE(78,67),R,C(11),B4,B5,A:CIRC 

LE(7B,186),R,C(U),B.B2,A:PAINT(78,124 

),C(11):CIRCLE(78,67),R,1,B4,B5,A:CIRC 

LEÍ7B, 186) ,R, 1, B,B2, A:RETURN 

4B0 CIRCLE(153,124),R,C(6),B4,B5,A:C!R 

CLE(153,243),R,C(6),B,B2,A:PAINT(153,1 

81).C(6):CIRGLE(153,124),R,1,B4,B5,A:C 

IRCLE ( 153, 243) , R, 1 , B, B2, A: RETURN 

490 CIRCLE(153, 124) , R, C (7) , B5, , A: CIRCL 

E(228,1B6),R,C(7),B2,B3,A:PAINT(200,13 

B),C(7):CIRCLE(153,124),R,1,B5,,A:CIRC 

LEÍ228, 186),R, 1,B2,B3, A:RETURN 

500 CIRCLE(153, 124 ) , R, C (8) , , B, A: CIRCLE 

(228,67), R,C(8),B3,B4,A:PAINT(200, 120) 

,C(8):CIRCLE(153,124),R,1 M B,A:CIRCLE( 



228,67), R,1,B3,B4,A:RETURN 

510 CIRCLE(178,186),R,C(14),B,B2,A:CIR 

CLE(178,67),R,C(14),B4,B5,A:PAINT(178, 

129),C(14):CIRCLE(178,186),R,1,B,B2,A: 

CIRCLE(178,67),R,1,B4,B5,A:RETURN 

520 CIRCLÉ(203,124),R,C(13),B3,B4,A:CI 

RCLE(128,186),R,C(13),,B,A:PAINT(158,1 

45),C(13):CIRCLE(203,124),R,1,B3,B4,A: 

CIRCLE(128,186),R,1,,B,A:RETURN 

530 REH 

540 REH BUCLE 
550 REH 

560 C$=INKEY$:IF C$="' OR INSTR ( " 123" . 
C$)=0 THEN 560 

570 G$=INKEY$: IF 5$=" OP INSTRC12345 
\G$)«0 THEN 570 ELSE G*VAL(G$) 
580 IF C$='l" THEN 60SUB 620: IF G<4 TH 
EN GOSUB 740 ELSE GOSUP 950 ELSE IF C$ 
='2" THEN GOSUB 660: IF G<4 THEN GOSUB 
810 ELSE GOSUB 1020 ELSE 1^ C$="3" THE 
N GOSUB 700: IF 5<4 THEN GOSUB 880 ELSE 
GOSUB 1090 
590 REíf 

600 PEH GIRO RUEDA 1 

610 REH 

620 FOR J=l TO G:D=C(20!:C(20)=C(23):C 

(23)=C(17):C(17)=C(2):C(2)=C(1):C(15=C 

(9):C(9)=D:D=C(24):C(24)=C(22):C(22)=C 

(16):C!16)=C(li):C(10i=C(15):C(15)=C(2 

1):C(21)=D:NEXT:RETURN 

630 REH 

640 REH GIRO RUEDA 2 

650 REH 

660 FOR J=l TO S:D=C(19):C(19)=C<! 
5!=C(4):C(4)=C(3):C(3)=C(i6):C(16>=C(2 
4):C(24)=D:D=C(18):C(1B)=C(12):C(12!=C 
(11):C(11)=C(17):C(17)=C(22):C(22)=C(2 

3) :C(23)=D:NEXT:RE T URN 
670 REH 

680 REH GIRO RUEDA 3 

690 REH 

700 FOR J=l TO G:D=C(7):C(75=C(6):C(6) 
=C(18) :C(18)=C(22) :C(22)=C(21) :C(21)=C 
(8):C(8)=D:D=C(13):C(13)=C(19):C(19)=C 
(23):C(23)=C(24):C(24)=C(20):C(20)=C(1 

4) :C(14)=D:NEXT:RETURN 
710 REH 

720 REH GIRO ANTIHORARIO RUEDA 1 
730 REH 

740 D=C(15):C(15)=1:G0SUB 340:C(15)=D: 
GOSUB 340:D=C(10):C(10)=1:6OSUB 350:C( 
10) =D: GOSUB 350: D=C ( 16) : C ( 1 6) = 1 : GOSUB 
360:C(16)=D:GOSUB 360 



750 D=C(22):C(22)=1:G0SUB 390:C(22)=D: 
GOSUB 390: D=C (24) : C (24 ) =1 : GOSUB 3B0:C( 
24)=D:G0SUB 380:D=C(21) : C ( 21 ) =1 : GOSUB 
330:C(21)=D:GOSUB 330 
760 D=C(9):C(9)=1:G0SUB 290:C(9)=D:GOS 
UB 290:D=C(1):C(1)=1:GOSUB 300:C(1)=D: 
GOSUB 300:D=C(2):C(2)=1:GOSUB 310:C(2) 
=D:GOSUB 310 

770 D=C(17):C(17)=1:G0SUB 370:C(17)=D: 
GOSUB 3?0:D=C(23):C(23)=1:GOSUB 400:C( 

23) =D:G0SUB 400:Ü=C(20):C(20)=1:GOSUB 
320:C(20)=D:GOSUP 320:RETURN 1160 

780 PEH 

790 REH GIRO ANTIHORARIO RUEDA 2 
800 REH 

810 D=C(22):C(22)=1:G0SUB 390:C(22)=D: 
GOSUB 390:D=C(17):C(17)=1:GOSUP 370:C( 
17) =D: GOSUB 370: D=C ( 1 1 ) : C ! 1 1 ) = 1 : GOSUB 
470:C(11)=D:GOSUP 470 
820 D=C(12):C(12)=1:50SUB 460:C(12)=D: 
GOSUB 460:D=C(18):C(!8!=1:GOSUB 450:C( 
1B)=D:G0SUB 450:D=C(23):C'23!=1:GOSUB 
400:C(23^=D:GOSUB 400 
B30 D=C(24):C(245=l:GOSUB 380:C(24>=D: 
GOSUB 380:D=C(16):C(16!=1:GOSUB 360:C( 
16)=D:GOSUB 360:D=C(3) :C (3) =1 : GOSUB 41 
0:C!3^=D:GOSUB 410 

B40 D=CÍ4):C(4)=1:S0SUB 420:C(4)=D:GCS 
UB 420:D=C(5):C(5)=1:GOSUB 430:C(5!=D: 
GOSUB 430:D=C(19):C(19)=1:5OSUB *40:C( 
l°)=D:GOSUB 440:RETURN 1160 
850 REH 

860 PEH GIRO ANTIHORARIO RUEDA 3 
870 REH 

B80 D=C(20):C(20)=1:GOSUB 320:C(20!=D: 
GOSUB 320:D=C(24):C(24)=1:GOSUB 3B0:C( 

24) =D:G0SUB 380:D=C(23) : C (23) =1 : GOSUB 
400:C(23)=D:GOSUB 400 

890 D=C(19):C(19)=1:G0SUB 440:C(19)=D: 
GOSUB 440:D=C(13):C(13)=1:6OSUB 520:C( 
13)=D:G0SUB 520:D=C(14) :C < 14) =1 : GOSUB 
510:C(14)=D:GOSUB 510 
900 D=C(8):C(8)=1:60SUB 500:C(8)=D:GOS 
UB 500:D=C(21):C(21)=1:6OSUB 330:C(21) 
=D:GOSUB 330:D=C(22) : C (22) =1 : GOSUB 390 
:C(22)=D:G0SUB 390 

910 D=C(1B):C(18)=1:G0SUB 450:C(18)=D: 
GOSUB 450:D=C(6):C(6)=1:GOSUB 480:C(6) 
=ü:GOSUB 480:D=C(7):C(7)=1:GOSUB 490:C 
(7)=D:G0SUB 490:RETURN 1160 
920 REH 

930 REH GIRO HORARIO RUEDA 1 
940 REH 
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950 0=C(24):C(24)=i:G0SUB 380:C(24)=D: 
50SUB 380:D=C(22) : C í 22) = 1 : GOSUB 390:C( 

22) =D:G0SUB 390: D=C ( 16) : C í 1 6) = 1 : GOSUB 
:60:C(16)=D:GOSUB 360 

960 D=C(10):C(10)=1:GOSUB 350:C(10)=D: 
GOSUB 350: D=C C 15 ) : C ( 15) = 1 : 60SUB 340:C( 
15)=D:G0SUB 340:D=C(21) :C (21) »1 : GOSUB 
330:C(21?=D:GOSUB 330 
970 D=C(20):C(20)=1:GOSUB 320:C(20)=D: 
30SUB 320: D=C ( 23 ) : C (23 ) = 1 : GOSUB 400:C( 

23) =D:G0SUB 400:D=CÍ17) : C í 17) =1 : GQSUB 
J70:C(17>D:6QSUB 370 

980 D=C(2):C(2)=1:G0SUB 3 I 0: C (2 ) =D : GOS 
UB 310: D=Cí 1 ) :CÍ 1) =1 :G0SUB 300:C(1)=D: 
GOSUB 300:D=C(9):C(?)=1:GOSUB 290:C(9) 
=D:GCSL'B 290:RETURN 1160 
9<?0 REH 

1000 REH GIRO HORARIO RUEDA 2 
1010 REH 

1020 D=Cí:B):C(18)=1:G0SUB 450:C(1B!=ü 
:G0SUB 450:D=C(12):C(12)=1:GOSUB 460:C 
(12)=D:G0SUB 460: D=C í 11) :C( 11) =1: GOSUB 

470:C(U)=D:GOSUB 470 
1030 D=C!17):C(17)=1:G0SUB 370:C(17)=E 
¡GOSUB 370: D=C í 22) : C (22) = 1 : GOSUB 390:C 
(22) =D: GOSUB 390: D=C (23) : C (23) =1 : GOSUB 

400:C(23)=D:GOSUB 400 
1040 D=C(19):C(19)=1:G0SUB 440:C(19)=D 
:G0SUB 440:D=C(5):C(5)=1:GOSUB 430:C(5 
)=Ü:60SUB 430:D=C(4) : C (4) =1 : GOSUB 420: 
:(4)=D:G0SUB 420 

1050 D=C(3):C(3)=1:G0SUB 410:C(3)=D:GC 
SUB aiG:D=C(16):C(16)=l:G0SUB 36Í:C(16 
)=D:GOSUB 360:D=C(24) : C (24) =1 : GOSUB 3E 




AAA 

WV 



0:C!24)=D:6OSUB 380:F,ETURN 1160 
1060 REH 

1070 REH GIRO HORARIO RUEDA 3 
1080 REH 

1090 D=C(13):C(13)=1:G0SUB 520:C(13)=D 
: GOSUB 520:D=C(19):C(19)=1:GOSUB 440:C 

(19) =D:G0SUB 440: D=C (23) :C (23) =1: GOSUB 
400:C(23)=D:6OSUB 400 

1100 D=C(24):C(24)=1:G0SUB 380:C(24)=D 
: GOSUB 380: D=C (20 ) : C (20) =1 : 60SUB 320:C 

(20) =D:GOSUB 320: D=C ( 14) : C < 14) = 1: 50SUB 
510:C(14>=D:6OSUB 510 

1110 D=C(7):C(7)=i:G0SUB 490:C(7)=D:GQ 
3UB 490:D=C(6):C(6>M:6OSUB 480:C(6)=D 



:GOSUB 480:D=C(13) : C í 13) =1 : GOSL'B «50: C 
( 18) =D: GOSUB 450 

1120 D=C(22):C(22)=1:G0SUB 390:C(22)=D 
¡GOSUB 390:D=C(21):C(21)=1:GOSUB 330:C 
(21)=D:60SUB 330:D=C(8) : C (8) = 1 : GOSUB 5 
00:C(8)=D:GOSUB 500:RETURN 1160 
1130 REH 

1140 REH COMPROBACION DE LA SOLUCION 
1150 REH 

1160 IF H$='2" THEN 560 ELSE FOP 1=1 T 
O 9:IF C(IKM5 THEN 560 ELSE NEXT: FOR 
1=10 TO 15: IF C(I)<>4 THEN 560 ELSE N 
EXT 

1170 IF E$="l" THEN FOR 1=16 TO 24: IF 
C(I)<>4 THEN 560 ELSE NEXT ELSE FOR 1= 
22 TO 24: IF BdlOlo THEN 560 ELSE NEX 
T: FOR 1=16 TO 2 1 : 1 F E$="2" THEN' IF G(I 
K>4 THEN 560 ELSE NEXT ELSE IF C(I)<: 
2 THEN 560 ELSE NE*T 
1180 REH 

1190 REH DESPEDIDA 
1200 REH 

1210 SCREEN 3:IF E$="l" THEN ft$= u ¡LIST 
O!" ELSE IF E$='2" THEN A$=" ¡SABIO! " E 
LSE A$="¡GENID!" 

1220 FOR !=2 TO 15:C0L0R I : PRESET (20, 6 
5):PRINTI1,A$:F0P J=l TO 500: NEXT: NEXT 
:COLOR 4:SCREEN 1 : LOCATE 4,11:PRIN T "¿ 
OTRA PARTIDA? <S/N>" 
1230 A$=INKEY$:IF A$="" OR INSTRCNnSs 
",A$)=0 THEN 1230 ELSE IF INSTR ( "Ss" . A 
II THEN 130 ELSE SCREEN 3: FOR 1=2 TO 1 
5:C0L0P I : PRESET (20, 85) : PRINTtl , * ¡AOIC 
S":FOR J=l TO 500: NEXT: NEXT: NEW 







Test de listado 



10 - 0 

20 - 0 
30 - 0 
40 - 0 
50 - 0 
60 - 0 
70 - 0 
80 - 0 
90 - 0 
100 - 0 
110 - 67 
120 - 91 



130 - 36 
140 -139 
150 -191 
160 -142 
170 -182 
180 - 18 
190 -210 
200 - 83 
210 - 0 
220 - 0 
230 - 0 
240 -189 



250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 



- 0 



-151 
-173 

- 0 
-152 

- 97 

- 33 
-179 
-176 

- 44 



370 
380 
390 
400 
410 
420 
430 

440 

450 
460 
470 



-102 
-117 
-111 
-220 

- 65 
-247 

- 76 

- 38 

- 27 
-254 
-190 

- 73 



490 -238 
500 -139 
510 -192 
520 - 13 
530 - 0 
540 - 0 
550 - 0 
560 - 85 
570 - 52 
580 - 84 
590 - 0 
600 - 0 



610 - 0 
620 -124 
630 - 0 
640 - 0 
650 - 0 
660 -112 
670 - 0 
680 - 0 
690 - 0 
700 -154 
710 - 0 
720 - 0 



730 - 0 
740 -115 
750 - 37 
760 - 2 
770 - 94 
780 - 0 
790 - 0 
800 - 0 
810 -246 
820 -159 
830 - 71 
840 -154 



850 - 0 
860 - 0 
870 - 0 
880 - 37 
890 -204 
900 -235 
910 -167 
920 - 0 
930 - 0 
940 - 0 
950 - 82 
960 - 70 



970 -252 
980 -100 
990 - 0 
1000 - 0 
1010 - 0 
1020 - 7 
1030 -142 
1040 - 56 
1050 -169 
1060 - 0 
1070 - 0 
1080 - 0 



10"0 - 11 
1100 -230 
1110 - 69 
1120 - 77 
1130 - 0 
1140 - 0 
1150 - 0 
1160 - 55 
1170 -226 
1180 : 0 
1190 - 0 
1200 - 0 



1210 -203 
1220 - 6 
1230 -124 



TOTAL: 
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Comenzamos a ver en el artículo del pasado mes las figuras base, que como debéis saber no son otra cosa que el 
conjunto de puntos iniciales antes del primer giro. En el presente artículo, ilustrado con fotos del programa 
"giromatic" profundizaremos sobre las figuras base y además veremos las evoluciones de algunas figuras. 

4.- Punciones del ángulo de giro 

La línea 90 puede expresarse de for- 
ma distinta a como se ha hecho, 
(Z=Z+H), poniendo la expresión de Z 
en función de H y J sin introducir la pro- 
pia variable en la expresión. 

4.1- Giro proporcional 

Una primera forma que cabe pensar 
es poner el giro de cada punto propor- 
cional a su número de orden. Con ello la 
expresión de z sería: 
Z=J.H 

A este tipo de giro le llamaremos pro- 
porcional. Con la expresión indicada, el 
punto cero permanece siempre en la 
misma posición. Si queremos que gire 
todo el conjunto habrá que poner 
Z=(J+1).H. 

4.2- Giro acelerado 

Si calculamos el giro provocado por la 
expresión Z=Z+H podemos ver que el 
giro del punto J en la iteración M es: 
Z=(J + 1 +(M-1).(N + 1)).H 

que recuente las iteraciones o número 

de figura, para lo cual basta hacer valor cero (que correspondería a la pre- Z = (J+1 +M.(N + 1)).H 

M = M + 1 . Iniciando esta variable con el sentación de la figura base) se tendrá: y si queremos que la figura no gire el 

Evolución de un cuadrado. Figuras base: Hipérbola de 24 puntos. 
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punto O, la expresión sería: 
Z = (J+M.N).H 
El giro que produce esta fórmula es 
mucho mayor que el giro proporcional, 
por lo cual le llamaremos "giro acelera- 
do", aumentando el ángulo de giro con 
el valor de M. Esta variable nos define el 
número de figura, que puede ayudar a 
identificar ésta en la gran mayoría de los 
casos, es decir cuando se haya mante- 
nido constante el valor de H en una serie 
de figuras definidas por una figura base 
y un número de puntos N. 

4.3- Giro simétrico 

Una forma de hacer girar los puntos 
sería que lo hicieran alternadamente en 
sentidos opuestos y además proporcio- 
nalmente al número de figura. A este 
tipo de giro le llamamos "simétrico" y 
viene dado por 

Z=H.(-1) J .(M+1) 

4.4- Giro trigonométrico 

Una forma de giro que da buenos re- 
sultados, es el que llamaremos giro "tri- 
gonométrico, en el que el giro de cada 
punto se establece como función trigo- 
nométrica de su número de orden. 

Para ello haremos: 



S = 



2.Pi 
N 



.Q yZ=H.senS.J. 



o bien con las funciones coseno o tan- 
gente en lugar del seno. 

Cuando J varía de O a N,S toma valo- 
res entre 0 y 2.Q.PÍ, siendo Q una varia- 
ble que nos define el número de vueltas 
o bucles establecidos para la función tri- 
gonométrica. Haciendo Q=0, la figura 
no gira con las funciones seno y tangen- 
te y gira un ángulo constante en cada 
vuelta con la función coseno, es decir te- 
nemos siempre en la pantalla la figura 
base, quieta o girando. 

Evolución de una hipérbola. 



5.- Figuras base en el programa 
"giromatic" 

En el apartado 3 se trató de un caso 
elemental de figura base, constituida 
por los puntos de un segmento rectilí- 
neo situados equidistantes en el eje po- 
lar. Con esta figura se ha podido experi- 
mentar la clave del programa, es decir, 
la forma en que se hacen girar los pun- 
tos. 

Las figuras que se van consiguiendo a 
partir del segmento rectilíneo, son ya 
bastante originales, especialmente 
cuando se unen los puntos mediante lí- 
neas rectas, aunque por su sencillez no 
se incluyen en el programa "Gl ROMA- 
TIC". Sin embargo, es fácil su inclusión 
pues requiere pocas modificaciones. 

A continuación se van a analizar figu- 
ras base más complejas, que dan visto- 
sas figuras, y en algunas ocasiones muy 
curiosas, según los parámetros que se 
utilicen. 



Iniciamos la descripción con la elipse, 
que es la que dio motivo al invento de 
este programa, como ya se ha explicado 
en la introducción. 



5.1- Elipse 

Vamos a definir una elipse mediante 
la intersección de las proyecciones de 
los puntos de dos circunferencias con- 
céntricas situados en el mismo radio, tal 
como se indica en la figura. Sea R el ra- 
dio de la circunferencia mayor y E.R. el 
de la menor, siendo E menor que 1 . Si el 
ángulo de radio con el eje polar ROX lo 
designamos por A, se tiene que las coor- 
denadas del punto P son: x = R.cos A 
y=E.R. sen A cumpliéndose por tanto: 



R 2 



+ 



= ; ecuación de una 




E 2 .R 2 

Como que pretendemos expresar el 
giro de los puntos en coordenadas pola- 
res, habrá que determinar el módulo y 
argumento del punto P. 

Si el módulo del punto P lo designa- 
mos por B(O.P) se tiene: 
B(0,P) = Vx 2 +y 2 =R.\/cos 2 A+sen 2 A.E 2 
El argumento POX que designaremos 
por B(1,P) será: 

tg B(1 , P) = y/x = E. tg A y por tanto 
B(1,P) = arctg(E.tg A) 

Si queremos representar una elipse 
con N puntos, podemos hacerlo defi- 
niendo N ángulos iguales a A, con lo que 
el valor de Aseria: 

A = 2. Pi/N 

Los N puntos quedan así situados en 
un ángulo de 360 grados. Pero pueden 
también repartirse en un ángulo mayor, 
dando K vueltas completas de circunfe- 
rencia, en cuyo caso el ángulo sería: 

A= 2. K. Pi/N 

El valor de K puede ser entero o frac- 
cionario (decimal). En éste último caso, 
los N puntos quedan repartidos en un 
número no entero de vueltas. 



Dos fases de la evolución de una margarita de 96 puntos. 
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Dos fases de la evolución de una margarita de 96 puntos. 



Los N puntos vendrán pues definidos 
por Aj =J.A., variando J de 1 a N. Sin 
embargo, como por comodidad definire- 
mos para N puntos una matriz a partir 
del valor de N, en realidad tendremos 



N + 1 puntos al variar en el programa J 
de O a N. Si el valor de K es entero, coin- 
cidirán en la representación gráfica, el 
primer y último punto. 
Aunque los intervalos del ángulo A 



entre dos puntos consecutivos son igua- 
les, no sucede lo mismo con el argu- 
mento del punto B(1 , J). El sistema em- 
pleado para definir así la elipse, da lugar 
a que los puntos estén más concentra- 
dos en los extremos del eje mayor que 
del eje menor, es decir, hemos definido 
por puntos una curva con densidad va- 
riable de puntos a lo largo de su trazado. 
Este aspecto es muy importante en el 
prograama «GIROMATIC», ya que por 
su causa se producen figuras en las que 
se mezclan líneas rectas con curvas, 
por lo menos aparentemente en la pan- 
talla. 

En efecto, en las zonas de alta densi- 
dad de punto, aún a pesar de los giros 
que se van produciendo y que tienden a 
separar cada dos puntos consecutivos, 
si el ángulo de giro H es pequeño, los 
puntos sucesivos quedan muy próxi- 
mos, de forma que al unirlos mediante 
las sentencias LINE, la apariencia en la 
pantalla es de líneas curvas. En cambio, 
en las zonas de baja densidad de pun- 
tos, éstos quedan suficientemente dis- 
tanciados y por tanto ¡as rectas apare- 
cen como tales. 

Por J.M. Climent Parcet 
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CREADOR DE SOFTWARE * STANDARD Y A 
MEDIDA * PROGRAMAS MSX 



EN DISCO 



EN CINTA 



CONTABILIDAD + I.V.A 

Adaptada al Plan Gral. Contable. 

GESTION DE INVENTARIOS 

Control de almacén, entradas, salidas, por distin- 
tos conceptos, listados, etc. 

BASE DE DATOS 

Permite crear ficheros, opción de cargar, grabar, 
listar, seleccionar, consultar, totalizar, modificar, 
salida de etiquetas... 

STAT PAC (estadística) 

Cálculo estadístico básico: media varianza, des- 
viación con gráficos de funciones, regresiones li- 
neales, exponenciales, logarítmicas y polinómi- 
cas. 

I.V.A. 

Programa para el control del libro de compras, 
ventas y gastos, con relación a la declaración de 
I.V.A. 







BASE DE DATOS 

Crea ficheros, los modifica, lista, selecciona, saca 
etiquetas, etc. 

TRADUCTOR DE IDIOMAS 

Permite la traducción entre dos idiomas, cuales- 
quiera que sean. 

ECUACIONES LINEALES 

Resuelve cualquier sistema de ecuaciones de has- 
ta 10 incógnitas. 

LOTO 

Lotería primitiva con estadísticas y reducidos. 

PARA APRENDER 
BASIC 

Este libro es el resultado de la 
aulas de su autor. Constituye una 
ra el estudiante v el autodidacta 




R afael Góme z 

nagas 
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... para aprender a programar tu ordenador, ya está a la venta el libro -CURSO MSX BASIC» es- 
crito por Rafael Gómez, director gerente de MASTER COMPUTER y editado por MARCOMBO. 
MASTER COMPUTER. S.A. Ctra. Esplugues, 42. Tel. 375 10 18. Cornellá (Barcelona) 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MIAIUNC PUEDES ADQUIRIR 



BASIC TUTOR IDEALOGIC 



ADAPTADORES TARJETAS! 
INTELIGENTES 
BEE CARD Y SOFTCARD 



Deja el manual de lado. Inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 
PVP 3.500 pts. 



í 



ENVIA HOY MISMO ESTE CUPON — 



Nombre y apellidos 



I Dirección 

I Población 

I □ Tutor Basic Ptas. 3.500- 

| □ SweetAcornPtas. 5.200- 

I □ Bam Stormer Ptas. 5.200- 




Note quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes 
Lo último 
en soft. 



7AVAW 



CP 



Prov. 



Tel. 



2x 



□ Adaptador BeeCard Ras. 2.850- 

□ Backgammon Ras. 5.200- 

□ Chock'n Pop Ras. 5.200 - 

Gastos de envío por cada producto 100 - pts. Remito talón bancario de 
Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 1 



□ Adaptador Softcard Ptas. 2.850- 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ras. 5.200- 

pts. a la orden de Manhattan 



Barcelona. 



) 




HACKERS versus 
PIRATAS 



Según varios informes realizados a 
nivel nacional en Japón, se está in- 
crementando de forma alarmante el 
fenómeno HACKER. Existe en nuestro 
país un cierto desconocimiento de este fe- 
nómeno, que en numerosos casos se con- 
funde con la piratería. En realidad se ha 
demostrado que en aquellos países en los 
que abundan los Hackers los piratas dis- 
minuyen. 

Vamos a comentar someramente en qué 
consisten los hackers y los piratas. 

Un pirata informático (tan abundantes 
por nuestros lares) es aquella persona 
que se dedica a desproteger y copiar ilegal- 
mente programas comerciales de cual- 
quier índole. En el mercado MSX destaca 
la enorme piratería en el campo de losjue- 
gos de ordenador, aunque también se pro- 
duce con otros programas. Existen mu- 
chas clases de piratas: desde aquellos que 
copian los programas de su vecino/a co- 
nectando entre sí dos cassettes a los Jóve- 
nes genios de la informática que disfrutan 
rompiendo las complicadísimas protec- 
ciones de algunos Juegos. Hay un abismo 
entre ambos. 

Un hacker, por otro lado, es aquel que se 
dedica a introducirse en ordenadores aje- 
nos. Esto es posible gracias a la intercone- 
xión de los grandes ordenadores mediante 
la línea telefónica. Mediante este sistema, 
con un pequeño ordenador, un MSX por 
ejemplo, el hacker puede introducirse en 
una red de grandes ordenadores tipo VAX 
o IBM. El daño producido por estos hac- 
kers puede llegar a ser enorme. Por suerte, 
en nuestro país los hackers son muy esca- 
sos, debido a la escasez de redes de ordena- 
dores lnterconectados. Es este tipo de "in- 
cordios" informáticos el que está difun- 
diéndose en Japón, dejando a un lado a los 
piratas. ¿Quién va a copiar un pequeño 
programa para MSX pudlendo utilizar 
grandes programas en ordenadores mu- 
cho mayores? 



IBM AUOTCIA 
EL PC-ET 



IBM anunció la aparición de su nuevo 
ordenador IBM PC-ET (Tecnología 
extendida), basado sobre un chip In- 
tel 80386. 

La importancia de esta aparición para 
los usuarios de MSX es relativamente 
grande, ya que, en su versión base, el orde- 
nador viene dotado de un lector de disket- 
tes de 3.5 pulgadas y de 720 Kb de capaci- 
dad. Este formato es el habitualmente uti- 
lizado por los MSX debido a sus ventajas 
respecto a los discos de 6.25 pulgadas. 
Esta decisión dé IBM marca deflnitiva- 
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mente la pauta para la estandarización 
del nuevo (no tanto para los usuarios de 
MSX) formato de discos flexibles. El PC-ET 
incorpora en su versión básica un lector 
de diskettes de 3.5 pulgadas, como ya he- 
mos comentado; y un disco duro de 30 
Mbytes. Su resolución gráfica ascenderá a 
1024X 1024píxels (puntos) generada por 
un chip 34010 de Texas Instruments. El 
teclado, por último será el teclado extendi- 
do del AT3, que incorpora, entre otros mu- 
chos detalles teclas separadas de control 
de cursor. 

El sistema operativo que utilizará este 
aparato será un MS-D08 5.00, o ADOS (re- 
cuérdese que los MSX utilizan el MSX- 



METODOLOGIA 
DELA 

PROGRAMACION 

Un libro muy útil para 
iniciarse 

Ferré Moret, 8 A. siguiendo la línea 
que le caracteriza ha editado un li- 
bro especialmente útil para aque- 
llos que deseen Iniciarse en las tareas de la 
programación. 

Esta vez se trata del libro titulado "Me- 
todología de la programación", recomen- 
dado especialmente a las escuelas de ense- 
ñanza de informática además de para neó- 
fitos. Este libro ha sido realizado por A. 
Martínez y J. Ameller profesores del Ins- 
tituto politécnico del ejército español y de 
la Universidad nacional de educación a 
distancia. 

Se trata de una introducción a la lógica 
del ordenador, que sirve como introduc- 
ción a la programación en cualquier len- 
guaje. No se requieren conocimientos pre- 
vios de informática, y además contempla 
diversos métodos de programación, desde 
los clásicos a los más modernos. En resu- 
men, un libro recomendable totalmente. 




METODOLOGIA 
DE LA 
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DOS, que desgraciadamente no alcanza el 
nivel de la versión 1.25 de MS-DOS). 

Digamos, además que la memoria RAM 
del ordenador oscilará entre 1 Mbyte y 1 
Gigabyte. 

Repetimos por tanto; IBM adopta el sis- 
tema de unidades de disco hace üempo uti- 
lizado por los MSX con lo que los MSX se- 
rán capaces de cargar los discos genera- 
dos con un IBM. Por fin se hará realidad 
aquello de repasar con el ordenador do- 
méstico el trabajo realizado con el ordena- 
dor profesional, sin ninguna incompatibi- 
lidad. 



SPACE SHUTTLE 




Este nuevo Juego de ACTIVISION si- 
mula una operación espacial abor- 
do de una lanzadera espacial (Spa- 
ce 8huttle). Tu misión se divide en varias 
etapas: salir de la atmósfera terrestre, si- 
tuarte en la órbita preestablecida, lanzar 
un satélite altamente secreto y tomar con- 
tacto con otros satélites. 

Debes también realizar correctamente 
todas las maniobras de reentrada en la at- 
mósfera para no quedar carbonizado en el 
intento. Por último has de aterrizar la lan- 
zadera en la base de Edwars de la Fuerza 
Aérea. 

El Juego tiene la apariencia de un simu- 
lador de vuelo; pero resulta mucho más 
complejo. Las escenas son bastante más 
variadas debido a las diferentes fases del 
Juego. Los gráficos y controles de la lanza- 
dera están muy bien resueltos, ya que se- 
gún se nos informa en el manual del pro- 
grama, han sido realizados en colabora- 
ción con personal de la NASA, para conse- 
guir el máximo realismo en el Juego. 

Los controles son numerosos y requie- 
ren un buen período de aprendizaje; pero 
los amantes de los Juegos de simulación lo 
encontrarán interesante y extremada- 
mente atractivo. Hagamos notar que, los 





controles, siendo en apariencia similares 
a los de otros simuladores de vuelo no son, 
en realidad nada parecidos, debido a las 
condiciones de ingravidez a las que se ve 
sometida la nave. 

Existen tres niveles en el juego. El pri- 
mero es el de autovuelo, en el que pilotas 
una nave controlada desde tierra. De este 
modo puedes habituarte a los controles de 
tu nave sin peligro. Es un buen método 
para conseguir el dominio necesario de 
los controles, ya que en este nivel se pasa 
por todas las fases del juego. 

En el segundo, el control de tierra solo 
maneja ciertos aspectos secundarlos de la 
nave, de modo que la responsabilidad está 
en tus manos. Es el nivel idóneo para am- 
pliar tu dominio de los controles y para 
aprender a solventar las posibles contra- 
riedades que aparezcan a lo largo del vue- 
lo. 

Por último, en el tercer nivel, estas sólo 
ante los controles de tu nave. Tu única 
ayuda será el computador de a bordo que 
te avisará cuando las cosas empiecen a ir 
mal... 



INFORMATICA 
EN ESPAÑA 

Los pequeños se engrandecen 

Según un informe realizado por la Di- 
rección General de Electrónica e In- 
formática del Ministerio de Indus- 
tria el número de ordenadores instalados 
en nuestro país, entre 1983 y 1986, ascen- 
dió un 36,3 por 100, mientras que su valor 
sólo se incrementaba en un 7 por 100. 

De este hecho se deduce, en primer lu- 
gar, un importante auge de la informática 
de bajo costo, es decir, los ordenadores 
personales y domésticos (sector este últi- 
mo en el que se inscriben nuestros MSX). 
Esta alza continuada del número de orde- 
nadores personales y domésticos hace 
prever nuevas y más interesantes apari- 
ciones en este campo. Las mayores empre- 
sas de informática entran, cada vez con 
mayor fuerza en el campo de los ordenado- 
res personales y domésticos. Claro ejem- 
plo de esto son dos grandes empresas del 
mundo informático. Philips, empresa am- 
pliamente conocida gracias a sus aplica- 
ciones especificas controladas por gran- 
des ordenadores se encuentra dentro del 
mercado MSX con numerosos modelos. 
Por otra parte, para dar un ejemplo algo 
más alejado de nuestro sistema, D3M, in- 
discutible líder en el sector informático, 
desarrolló un ordenador doméstico, el PC 
júnior (PCJr), compatible con sus ordena- 
dores personales de gama PC/XT/AT; pero 
destinado al mismo mercado que aquí ocu- 
pan los MSX. 

Es bien patente, por tanto, la importan- 
cia que están desarrollando los pequeños 
ordenadores, y el interés de las grandes 
empresas por controlar este codiciado 
mercado. 



ENTREGA DE PREMIOS 
2° GRAN CONCURSO DE PROGRAMAS 



Recientemente tuvo lugar en nuestra 
redacción la entrega de los premios co 
rrespondientes al segundo gran concurso 
de programas convocado por nuestra re- 
vista. 

Como sabéis, este premio correspondió 
a Eduard Playá González por su programa 
MONTGOLFIER. La entrega del mismo - 
una unidad de disco PHILIPS VY 0010- 
fue efectuada por nuestra directora ejecu- 
tiva Birgitta 8andberg. 

Aprovechamos la entrega del premio 
para conversar con Eduard acerca de su 
programa y de la técnica que había em- 
pleado para su confección. 

A la hora da confeccionar al Juago, 
¿ tuviste problemas con loa SPBXTM8? 

-Más que problemas, trabajo. Para que 
el Juego no tuviera problemas con la ine- 
xorable regla del quinto sprlte, tuve que 
controlar las rutinas que mueven a los pá- 
jaros de modo que no me coincidieran más 
de cinco en una línea. 

¿Qué técnica empleaste para opti- 
mizar la velocidad da ejecución dal 
Juago? 

-Para mejorar la velocidad, tuve que 
acortar hasta el máximo posible el bucle 
principal, además de evitar que se produ- 
jeran al mismo tiempo las llamadas a las 
subrutlnas. Si observáis el desarrollo del 
programa veréis que las llamadas a su- 
brutlnas se producen de una manera in- 
termitente. A efectos de optimización, uti- 
licé todos los trucos que publicáis en "Tru- 
cos de programador" referidos a ese pun- 
to. Me han servido de mucho. (Nos va a ha- 
cer enrojecer este chico" 



¿Qué fuá lo que más trabajo ta costó 
a la hora da desarrollar al programa ? 

-Sobre todo el acortar el listado al máxi- 
mo, puesto que las primeras versiones del 
programa tenían una longitud kilométri- 
ca, y la depuración del programa me llevó 
no poco tiempo. Además, como pretendí 
cuidar los detalles" al máximo (instruccio- 
nes, títulos etc.) esta tarea de depuración 
me entretuvo bastante. 

T, hablando da música, ¿cómo 
ideaste la melodía ? 

-De oído, con los rudimentos de música 
que poseo. Cogí la flauta y empecé a probar 
hasta que conseguí una serie de notas que 
me gustaron, y realicé su transcripción. 
De todos modos tuve bastantes problemas 
a la hora de compatlbilizar la música ge- 
nerada mediante SOTJND y PLAY. 

T ahora, la pregunta inevitable. 
¿Qué ta paraca el premio? 

— Indiscutiblemente, estoy muy conten- 
to. Llevaba un temporada rondando una 
unidad de disco, además, tengo entendido 
que las unidades de PHILIPS son de lo me- 
iorcito que hay para MSX. Efectivamente, 
Eduard no se equivoca. Las unidades PHI- 
LIPS VY 0010 unen a su solidez, excelente 
diseño y prestaciones, la garantía de su 
propia marca, sobradamente reputada no 
sólo por los usuarios de MSX, sino por 
cualquier sector del público general. 

Tomen nota los futuros concursantes: 
concreción, claridad y velocidad de ejecu- 
ción combinados con una idea original 
pueden darles el premio del próximo con- 
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INICIACION AL LENGUAJE MAQUINA 



DELHARDAL SOFT 




En esta sección ya tradicional de nuestras paginas abordamos un tema por demás interesante. Los sistemas de 

comunicaciones y sus elementos básicos de interacción. 



ELEMENTOS PRINCIPALES QUE 
INTERVIENEN EN UN SISTEMA DE 
COMUNICACIONES 

Un sistema de comunicaciones se 
puede definir como un medio técnico 
que nos permite el intercambio de infor- 
mación y el tratamiento de la misma. En 
términos reales, nos encontramos en la 
actualidad con distintos ejemplos en el 
empleo de los sistemas de comunica- 
ciones, aplicados a las más variadas 
manifestaciones. Los bancos, por ejem- 
plo, utilizan continuamente estos me- 
dios; ingresar o extraer dinero da pie a 
que se inicie un proceso de consulta y 
respuesta, en el que se ve inmerso por 
completo el sistema de comunicacio- 
nes. 

Históricamente los sistemas de co- 
municaciones han variado la técnica 
transmisora de la información. Al princi- 
pio se hacía aleatoriamente, después, 
mientras el hombre se civilizaba, fueron 
cambiando las técnicas: el humo de los 
indios americanos, las señales con es- 
pejos, el telégrafo, hasta llegar al actual 
conglomerado compuesto por los orde- 
nadores. 

Según sea el tipo de utilización del 
sistema de comunicaciones, podemos 
agruparlos en los siguientes apartados: 

-CONSULTA.- La consulta es un ser- 
vicio ordinario que prestan los servicios 
de comunicaciones. A través de la con- 
sulta, la persona que la haya hecho, 
puede acceder, a través de una termi- 
nal, a los archivos o la base de datos. 
Esta devuelve la información pedida en 
un proceso muy rápido de búsqueda. 

-ACTUALIZACION DE REGIS- 
TROS: La actualización de registros 
permite actualizar el registro de la base 
de datos, aunque se produzca desde 
una terminal a distancia al ordenador 




central o principal, pudiendo alterar de 
esta manera la información registrada. 
Por ejemplo, será necesario alterar los 
registros, en las operaciones de los ban- 
cos cada vez que el gobierno cambie el 
tipo de imposición fiscal. 

-ENTRADA DE DATOS.- La opera- 
ción de entrada de datos solo permite la 
entrada de información al ordenador 
central, sin que se tenga que dar una 
respuesta o haya que mantener abierta 
la base de datos para otras operacio- 
nes. En el caso de la entrada de datos, la 
información llega directaamente al orde- 
nador central y éste la trata automática- 
mente. 

-TIEMPO COMPARTIDO.- A través 
del tiempo compartido se permite el tra- 
tamiento de información a varios usua- 
rios a la vez. Esta es una aplicación, lla- 
mada también proceso interactivo, que 



además de recibir la información de va- 
rias terminales, puede dar respuesta a 
todas ellas de manera que al usuario le 
parece estar haciendo uso exclusivo del 
ordenador. 

-ENTRADA DE TRABAJOS A DIS- 
TANCIA.- Esta aplicación dota al usua- 
rio de la posibilidad de enviar informa- 
ción desde una terminal a distancia y re- 
cibir respuesta. Se subdivide en dos ti- 
pos de procesos (RJE) (Entrada remota 
de trabajos por lotes) y CRJE (Entrada 
remota de trabajos por lotes de tipo con- 
versacional). En la primera, el usuario 
envía sus datos y los resultados se le 
devuelven a su terminal a distancia. En 
la segunda, se produce una conversa- 
ción entre la terminal y el ordenador cen- 
tral, permitiendo correcciones sucesi- 
vas aei iraoajo enviado. 

-CONMUTACION DE MENSAJES.- 
Permite enviar mensajes desde un pun- 
to de la red a otros puntos de la red aun- 
que estén diseminados en zonas muy 
amplias. Es un proceso muy utilizado 
para dar los resultados de unas votacio- 
nes generales o de intercambio de infor- 
mación entre grandes empresas. Nor- 
malmente, para este tipo de aplicación 
se utilizan redes de comunicación muy 
extendidas. 

Vista la utilización posible de los siste- 
mas de comunicaciones, podemos de- 
ducir las siguientes características: 

-ENTRADA Y SALIDA A DISTAN- 
CIA. A través de los servicios de comu- 
nicación los recursos y respuestas del 
ordenador central circulan comunicán- 
dose con las terminales a distancia. 

-ENTRADA AL AZAR. Cualquier ter- 
minal a distancia puede acceder al orde- 
nador central a cualquier hora. 

-PROCESO INMEDIATO DE TRAN- 
SACCIONES. Permite el proceso de da- 
tos inmediato, no teniendo que esperar 
a que los «lotes» de información se pro- 
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cesen todos juntos. De esta manera 
cada transacción se procesa individual- 
mente en el acto. 

-TIEMPO DE RESPUESTA RAPI- 
DO. Los sistemas de comunicaciones 
están diseñados para ofrecer tiempos 
de respuestas lo más rápidos posible. 

-MULTIPLES USUARIOS SIMULTA- 
NEOS. Como hemos dicho anterior- 
mente, este sistema permite que se ac- 
ceda al ordenador central a través de 
varias terminales trabajando al mismo 
tiempo. 

-«ON-LINE». A través de este térmi- 
no, se define la operación de entrada de 
datos desde la terminal a distancia al or- 
denador central. 

-TIEMPO REAL. Este término se utili- 
za para calificar a las operaciones que 
tienen una respuesta suficientemente 
rápida, y por lo tanto permite la correc- 
ción de errores inmediatamente sin que 
se tenga que esperar a que se cumplan 
otras operaciones que puedan producir, 
en algunos casos, dificultades de comu- 
nicación. 



ELEMENTOS BASICOS DE LOS 
SISTEMAS DE COMUNICACIONES 

Los ejemplos básicos de los sistemas 
de comunicaciones son: El ordenador 
central o principal, los medios y servi- 
cios de comunicaciones y las estacio- 
nes de terminal a distancia. 

Las terminales a distancia suponen el 



acceso al ordenador central y actúan, 
también como medio para poder extraer 
información del mismo. La forma de la 
terminal, varía según sea su aplicación. 
Normalmente el equipo de la terminal 
consta de un teclado con un registro im- 
preso y salida impresa. 

La función de los medios y servicios 
de comunicaciones es la de hacer llegar 
el mensaje hasta el ordenador central, y 
en el caso de que se produzca respues- 
ta, devolverla a la terminal. 

Aparte de proporcionar el programa y 
la base de datos, el ordenador central, 
ha de estar preparado para reaccionar 
ante cualquier demanda solicitada por 
una de las terminales. Por lo tanto no es 
posible que el ordenador central funcio- 
ne solo con procesos de entrada/salida 
por lotes rutinarios. Normalmente se ha 
de utilizar un NCP (Programa de control 
de redes). 

El NCP es un sistema operativo cuya 
función es la de control y tratamiento de 
la red de comunicaciones. 

El interfaz o «interface» es el punto 
donde se encuentran los procesos de 
datos con el sistema de comunicacio- 
nes. Los diseñadores son los encarga- 
dos de engendrar los dispositivos capa- 
ces de realizar las operaciones necesa- 
rias en el interfaz. Estos dispositivos re- 
ciben el nombre de unidades de control 
de comunicaciones. 

Si extendemos los tres elementos 
principales de los sistemas de comuni- 
caciones a estos dos últimos podemos 
constatar que los elementos principales 



de un sistema de comunicaciones son 
cinco: 

-Estación terminal a distancia. 
-Medios y servicios de comunicacio- 
nes. 

-Ordenador central. 

-Programación de sistemas de comu- 
nicaciones. 

-Unidades de control de comunica- 
ciones. 

AREAS DE RESPONSABILIDAD 

Normalmente podemos considerar 
responsables en un proceso de datos 
del éxito de la operación, al usuario y al 
fabricante. El usuario es responsable de 
la buena utilización de la terminal y el fa- 
bricante es el responsable del buen fun- 
cionamiento del sistema. Sin embargo, 
en las aplicaciones donde se han de 
transmitir datos a grandes distancias es 
la compañía telefónica la responsable 
del envío y la recepción de datos. 

La compañía telefónica aunque no in- 
terviene en la programación de los da- 
tos, ha de asegurar la entrega de los da- 
tos entre lugares separados por gran- 
des distancias. 

Como es de suponer, la comunica- 
ción de datos a través de la compañía 
telefónica, no se hace a través de men- 
sajes hablados, sino mediante señales 
digitales eléctricas. 

Juan Carlos González. 
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TEST DE 
LISTADOS 



Manhattan Transfer, S A 
Formato: Cassette 32K 



Mandos: Teclado 
*» * ° \ | 




CON GARANTIA 



Tras el extraordinario éxito obtenido 
con la publicación del Test de Lista- 
do que permite a nuestros lectores 
verificar de un modo rápido los posibles 
errores de copia de los programas que pu- 
blicamos tanto en MSX EXTRA como en 
MSX CLUB, nos hemos visto casi obliga- 
dos a editarlo en cassette. De este modo 
aquellos lectores que quieran evitarse el 
tener que copiarlo de nuestros números 
10 y 1 1 y del número 7 de MSX CLUB sólo 
tendrán que solicitar la cinta a nuestra re- 
dacción. 

El Test de Listados es un útilísimo pro- 
grama para ahorrar tiempo y evitar tirar 
el ordenador y acordarnos de muchas per- 
sonas no queridas cuando no sale lo que 
esperamos. Nuestras publicaciones son 
las únicas que lo traen para facilitar la ta- 
rea de todos los interesados en aprender 
un poco más copiando programas. Al final 
de cada uno de los programas publicados 
damos dos columnas de números. La pri- 
mera columna corresponde a las líneas y 
la segunda a una cifra de verificación. 
Cada una de estas cifras se suman y el to- 
tal tiene que coincidir con el que el lector 



obtenga tras emplear el Test de Listado. Si 
la suma coincide el programa tiene que 
funcionar correctamente. Si coincide y no 
funciona, puede suceder que haya algunas 
diferencias compensadas en algunas lí- 
neas que son fáciles de localizar. Del mis- 
mo modo si la cifra total no es igual a la 
que publicamos el lector tiene que buscar 
en qué línea se encuentra el error. Una vez 
localizada vuelve al programa de la revis- 
ta y verifica que la copia sea correcta. Su 
empleo es muy fácil. 

Es muy importante que no remunere 
nuestros programas hasta que los haya 
verificado ni haga ningún tipo de modifi- 
cación, pues de hacerlo así el Test no le 
servirá de nada. 



Conclusión: Programa muy útil para los lec- 
tores de MSX EXTRA y MSX CLUB. Sólo se 
vende en n/redacción o por correo. 
Precio aproximado: 500 ptas. 



KINGLEONARD 



Mind Oames 
Formato: Cassette 32K 
Mandos: Teclado o joystick 
Teclee: Bload "CAS: B ,R 




1 rey Leonard ha sido destronado 
por su propio hermano y por si es- 
to fuera poco ha escondido todas 
las riquezas del reino en una de las tantas 
habitaciones del castillo, prohibiendo la 
entrada a Leonard. Tú, como fiel servidor 
del rey destronado, debes penetrar en el 
castillo en busca de las riquezas ya que la 
única posibilidad de vencer al malvado 
monarca y recuperar el trono es llegando 
hasta ellas. 
Las riquezas se encuentran escondidas 



POR CLAUDIA TELLO HELBLING 



en "la cámara de los tesoros" pero una vez 
dentro del castillo deberás pasar por todas 
las habitaciones. Has de tener mucha pre- 
caución con los guardias que vigilan celo- 
samente la cámara pero también hazlo 
con los que vigilan cada aposento pues su 
maldad iguala a los anteriores. Si te si- 
guen procura despistarlos o estarás per- 
dido. 

En diferentes rincones del castillo en- 
contrarás llaves que debes coger, ya que 
pueden serte útiles en momentos de peli- 
gro y/o abrirte puertas que conducirán a 
la cámara de los tesoros. 

Dispones de 10 vidas para esta misión, 
no las desperdicies. Son varias las causas 
que te harían perder una o más vidas: - 
que te atrapen los guardias de los aposen- 
tos o la cámara, -en tus desplazamientos, 
en los saltos, estos últimos hazlos con pre- 
cisión pensando que de ti depende el rey 
Leonard. 

La puntuación irá en aumento a medida 
que te vas acercando al tesoro, derribando 
y recogiendo llaves que encuentres por el 
camino. Obtendrás éxito en esta misión si 
posees mucha habilidad y la suerte te 
acompaña en todo momento. 



Sonido: Convencional. 
Grafismo: Bueno. 

Conclusión: Un Juego de laberinto sólo apto 

para jugadores hábiles. 

Precio aproximado: 2.495 ptas. + IVA 





Mind Oames 
Formato: Cassette 32K 
Mandos: Teclado o joystick 
i Teclee: Bload U CAS:",R 



Seguro que todos conocéis al gran 
mago Merlín, famoso por sus hechi- 
zos para ayudar a los demás. Ahora, 
nuestro amigo se encuentra en un verda- 
dero problema y necesita de tu ayuda. Re- 
sulta que está prisionero y en la parte más 
deshabitada del castillo donde nadie puede 
oirle. Sin embargo, éste no es su principal 
inconveniente. Todo comenzó cuando 
Merlín estaba preparando un hechizo y 
por alguna equivocación en los ingredien- 
tes comenzaron a aparecer extraños se- 
res que desde entonces no cesan de acosar 




al pobre mago, obstaculizando sus experi- 
mentos. 

Para acabar con estos seres malignos 
Merlín ha de conseguir las fórmulas. Pero 
otra trastada que le han hecho los maldi- 
tos es esparcir todas las fórmulas y mez- 
clarlas por todos los rincones del castillo. 
Entre estas fórmulas se encuentra la solu- 
ción para derrotar a los genios del mal. 
Pero no sólo han revuelto papeles y escon- 
dido el libro de Merlín sino también los in- 
gredientes que éste puede usar. El Juego 
consiste pues en encontrar la fórmula que 
destruirá a los seres y también los ingre- 
dientes para realizarla. 

En la pantalla tienes un indicador de la 
puntuación que vas obteniendo a medida 
que avanzas en el Juego, de las oportunida- 
des o vidas que te quedan y la fórmula que 
debes buscar. Pero no los elementos nece- 
sarios para componerla. Un gran consejo 
es que antes de Jugar a Merlín te repases 
las formulaciones. 

Los que no son tan buenos en química 
pueden elegir los óxidos y anhídridos 
pero los más atrevidos pueden optar por 
ácidos y sales. No olvides que cada fase tie- 
ne un tiempo determinado. 



Sonido: Correcto. 

Grafiamo: Muy bueno. 

Conclusión: Además de entretenido resulta 

sumamente útil para saber mas de química 

Precio aproximado: 2.495 ptas. + IVA 

; 



DRAGONWORLD 



Idealogic/Philips 
Formato: Diskette p/MSX 2 
Teclado 



Este es un magnífico Juego de aven- 
turas en el que la capacidad de de- 
cisión y la audacia tienen un papel 
importante en la consecución del éxito. Tu 
misión y la de tu amigo Hawkwind es la de 
rescatar al Dragón que ha sido raptado y 
encarcelado por las fuerzas del mal. Tu 
nombre es Amsel y eres un científico muy 



especial, pues no sólo te vales de las cosas 
racionales, sino también de las fantásti- 
cas para conseguir tu propósito. Esto sig- 
nifica que si no te sirve la espada, un barco 
u otro objeto puedes echar mano a deter- 
minadas palabras mágicas para conti- 
nuar tu camino hacia las profundas tie- 
rras del Sur de Simbala, donde está prisio- 
nero el Ultimo Dragón. 

Para jugar te recomiendo que una vez 
cargado el disco prepares otro a fin de gra- 
bar en él el camino que hayas recorrido y 
no tengas que volver desde el principio. 
Para crear un disco de juegos tiene que 
emplear la orden PREPARAR, cuando el 
peligro de destrucción es inminente, y 
pulsa RETURN. De modo que si te destru- 
yen puedes restablecerte en el mismo 
punto. Para hacerlo tienes que usar la or- 
den RECUPERAR. 

Como ya es habitual en este tipo de juego 
no debes complicarte la vida dando órde- 
nes confusas. En principio trata de colo- 
car el verbo primero seguido del objeto, las 
características de éste. También puedes 
determinar en una misma orden varias 
órdenes, pero éstas deben ser coherentes 
y secuenclales. Por ejemplo no puedes zar- 
par sin antes subir al barco, ni leer un li- 
bro sin antes cogerlo y abrirlo. Los adjeti- 
vos o sustantivos que emplees y que no 
sean aceptados te aparecerán en pantalla 
como vocablos que no están en el idioma 
de Simbala. El mismo criterios se sigue 
cuando te encuentran con alguien y ha- 
blas. Quiero decir que das la orden de ha- 
blar, preguntar y después especificas con 
quién y sobre qué o quién. 

Uno de los recursos mágicos que tienes 
para salvarte de algún peligro es invocar 
la Perla del Dragón. Ella te sacará de apu- 
ros y podrás recomenzar la búsqueda des- 
de un punto más seguro. Pero todo tiene su 
límite y no podrás invocarla más de cinco 
veces. También puedes pedir los inestima- 
bles consejos de tu amigo Hawkwind para 
lo cual tienes que localizarlo allí donde 
esté. 

Este Juego desarrollado por Idealogíc, 
bajo licencia de Telarium, ha contado con 
un equipo totalmente español, integrado 
por Norbert Martínez, Ricard Gavaldá 
Elol Serra, Agustín Pérez, Eloi Ortega, 
Joan Carmonay Josep M. a Losan tos. Tam- 
bién han participado en las ilustraciones 
Romá Gutiérrez, Oscar Eróles, Susanna 
García y Cristina Carré. 



LE MANS Z 




Grafiamo: Excelente. 
Sonido: Correcto. 

Conclusión: Un magnífico juego de aventu- 
ras desarrollado para MSX-2 aprovechando 
la potencia de estos aparatos y propiciando la 
imaginación del jugador. 
Precio aproximado: 5.950 ptas. 



Serma 

Formato: Tarjeta Softcard 
Mandos: Teclado o joystick 




Para los aficionados a fórmula 1 os 
presentamos el Juego ideal; una ver- 
sión de las famosísimas "24 horas 
de Le Mans", pero al adaptarlas a vídeo 
juego se ha tenido que variar un poco. Esta 
diferencia consiste en que las 24 horas pa- 
sarán a ser 24 minutos, lo que es una gran 
ventaja para vosotros, ¿no creéis? 

Para dar por terminada la carrera se 
han de hacer las 10 vueltas que componen 
"Los 24 minutos de Le Mans". 

Si te has decidido a participar, tendrás a 
tu disposición un hermoso coche deporti- 
vo. Tu puesto es el de conductor así ten- 
drás una perspectiva más real y emocio- 
nante, con un graflsmo tridimensional La 
luz verde indicará la salida; el coche puede 
llegar a alcanzar los 360 km/h y sus fun- 
ciones son las siguientes: -girar a la dere- 
cha, -a la izquierda, -acelerar, -disminuir 
la velocidad y frenar apretando el botón de 
disparo; está equipado con 5 marchas que 
cambiarán automáticamente cuando sea 
necesario. 

La carrera es muy larga, recuerda que 
su límite son 24 minutos que representan 
24 horas lo que significa que deberás pa- 
sar la noche al volante procurando que el 
cansancio no te haga salir de la pista. La 
carrera la forman 20 participantes, sí no 
quieres que te penalicen procura no llegar 
el último, ni sal irte de la pista en una de- 
rrapada. 

Consejos para aumentaar la puntua- 
ción: -mantener el coche en la pista pro- 
curando el mínimo de accidentes, —ade- 
lantar a los demás coches y sacando vuel- 
tas de ventaja. 

Para finalizar la carrera con éxito busca 
un buen copiloto. 



Sonido: Bueno 
Grafiamo: Visión tridimensional de 
Conclusión: Juego emocionante. 
Precio 



TRATAMIENTO DE DATOS 



LOS FICHEROS EN MEMORIA 



Una de las razones que han impulsado el desarrollo de la informática en los últimos años es la facilidad con que los 
ordenadores tratan grandes volúmenes de datos. En este articulo veremos una de las herramientas fundamentales 
en el tratamiento de datos: los ficheros. 




Los ficheros en los ordenadores tie- 
nen una gran similitud con los fi- 
cheros convencionales sobre pa- 
pel. Repasemos, en primer lugar, los 
componentes fundamentales de un fi- 
chero convencional. 

En primer lugar contamos con el fi- 
chero, el conjunto de fichas. En caso de 
que existan varios ficheros, cada uno 
tiene un nombre: fichero de clientes, fi- 
chero de proveedores, etc. Para acce- 
der a los datos del fichero debemos, an- 
tes de nada, abrirlo. Una vez abierto el fi- 
chero nos encontramos con que la infor- 
mación está dividida en fichas. Cada 
una de estas fichas tiene un código o 
un nombre según el cual están ordena- 
das en el fichero. Una vez tenemos la fi- 
cha ante nosotros observamos que está 
dividida en varios campos: nombre, di- 
rección, etc. Para acabar, una vez retor- 
nada la ficha a su sitio, cerramos el fi- 
chero. 

Hemos expuesto este proceso de ac- 
ceso a la información de una ficha en un 
fichero convencional, ya que el sistema 
utilizado para obtener la información en 
un fichero de ordenador es práctica- 
mente el mismo. 

Distinguiremos antes de entrar en 
materia, tres tipos de ficheros, cuyo 
modo de acceso será bien diferente. El 
primero de ellos es el fichero en memo- 
ria: este fichero está incluido totalmente 
en la memoria del ordenador, y se pier- 
de al apagar el mismo. El segundo tipo 
de fichero es el secuencial. Secuencia- 
Ies son los ficheros en cassette, ya que 
la información se almacena un dato tras 
otro, aunque también podemos gene- 
rar ficheros secuenciales sobre el disco. 
En estos ficheros sólo podemos acce- 
der a un dato si hemos pasado por todos 
los anteriores. Por último están los fiche- 
ros de acceso aleatorio, o ficheros «ran- 
dom». Estos ficheros, sólo direcciona- 
bles desde el disco, permiten obtener un 
dato de forma directa. 

Trataremos con calma de todos ellos, 
y daremos ejemplos de cómo se pueden 
crear y utilizar. Empezaremos con los 
más sencillos: los ficheros en memoria. 

FICHEROS EN MEMORIA 

No existe una estructura especial en 
BASIC para generar ficheros en memo- 
ria (sí por ejemplo en PASCAL), por lo 
que, para almacenar los datos utilizare- 



mos conjuntos de cadenas de caracte- 
res. Repasemos en primer lugar las es- 
tructuras BASIC necesarias para el de- 
sarrollo de los ficheros en memoria. 

DIM: El comando DIM genera un con- 
junto ordenado (una única dimensión) o 
tablas (más de una dimensión) según se 
lo especifiquemos. Por ejemplo: 

DIM nombre$ (100) 

genera un conjunto, llamado nom- 
bres, que contiene 1 00 cadenas de ca- 
racteres (por llevar dólar). En cambio, 

DIM edad (145) 

genera un conjunto, llamado edad, 
que contiene 145 números. 

Para colocar un 7 en el elemento 43 
del conjunto edad haríamos: 

edad (43) = 7 

A algunos de los lectores esto les pa- 
recerá trivial y extremadamente simple, 
a otros, por el contrario, les sonará a chi- 
no. Intentaremos contentar a todos. 

Como hemos dicho al principio, en 
una ficha diferenciamos la información 
en varios campos: nombre, edad, etc. 
En los programas que utilicen ficheros 
en memoria, asignaremos cada campo 
a un conjunto. Tomaremos como ejem- 
plo, a partir de ahora, una ficha que sólo 
incluya nombre, edad y número de telé- 
fono, para simplificar, aunque el proce- 



so es el mismo si se desean utilizar más 




programa debería comenzar 



con: 

DIM nom$(100), edad(100), tlf$(100) 
Hemos abreviado nombre por nom, 
así que el nombre se almacenará en 
nom$, y asimismo teléfono por tlf. He- 
mos asignado al teléfono un conjunto de 
cadenas de caracteres. Hemos hecho 
esto para facilitar la entrada de los telé- 
fonos con guiones o puntos de separa- 
ción, que no se podrían utilizar si hubié- 
semos declarado tlf sin el signo de dólar. 

El número 100 representa el máximo 
número de fichas que podrá almacenar 
nuestro programa (100 está bien por el 
momento). Él acceso a la ficha se consi- 
gue modificando el nombre, la edad y el 
teléfono de un mismo índice al mismo 
tiempo. Quedará más claro con un 
ejemplo: 

nom$ (1)="Pedro Pókez Remírez" 
edad(1)=37 

tlf$(1)="(23)-34-43-12" 

con esto sabemos que el nombre de 
la ficha uno es Pedro..., la edad de la fi- 
cha uno es 37 y el teléfono de la ficha 
uno es (23)-34-43-12. Con esto he- 
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mos realizado un alta en nuestro inci- 
piente fichero. 

Pero lo más interesante de un fichero 
es poder acceder a sus datos. Nada 
más fácil. Si queremos ver el teléfono de 
la ficha uno no tenemos que hacer más 
que 

PRINT tlf$ (1) 
(23)-34-43-12 



El problema de este sistema es que si 
se borran muchas fichas se desaprove- 
cha mucho la memoria del ordenador, y 
si se borran muy pocas, resultará muy 
lento encontrar una ficha vacía. 

El sistema utilizado para dar de baja 
debe elegirse en función del tipo de da- 
tos que vayamos a introducir en el fiche- 
ro, si se van a dar muchas o pocas ba- 
jas, y de otros factores que sólo la expe- 
riencia os ayudará a discernir. 




Para eliminar fichas podemos utilizar 
varios métodos. El primero, y más evi- 
dente, es desplazar todas las fichas que 
hay detrás un puestro atrás. Por ejem- 
plo, si quisiéramos borrar la ficha 33 ha- 
ríamos 

FORx =33+1 to100 
nom$ (x-1)=nom$ (x) 
edad (x-1)=edad (x) 
tlf$(x1)=tlf$(x) 
NEXTx 

Este sistema tiene un grave inconve- 
niente si el fichero es muy grande: la len- 
titud. Si queremos borrar la ficha 1 en un 
fichero de 5000 fichas tendremos que 
desplazar 4999 fichas. Existen otros si- 
temas para evitar esto, siendo el princi- 
pal el de la indexación, de la que habla- 
remos más adelante. Otro ardid muy uti- 
lizado es introducir un carácter especial 
para indicar que la ficha está vacía. Por 
ejemplo, si el primer carácter del nom- 
bre es un "$", podemos suponer que la 
ficha está vacía. Quede claro que esto lo 
hacemos por conveniencia; no hay nin- 
guna obligación de utilizar el "$" como 
marca de ficha vacía; pero es un buen 
ejemplo. Utilizando este sistema, borrar 
la ficha 33 sería tan fácil como 

nom$ (33) = "$" 



Hasta ahora ya hemos definido las 
operaciones fundamentales del fichero: 
dar de alta (añadir fichas), dar de baja 
(borrar fichas) y consultar. La última op- 
ción que nos queda por comentar es la 
búsqueda por un campo. Realizaremos 
la búsqueda por nombre, pero quede 
claro que el proceso es el mismo con 
cualquiera de los otros campos. 

Esta opción es, con mucho, la más uti- 
lizada. Si queremos saber el teléfono de 
alguien, es lógico que sepamos su nom- 
bre; pero es más difícil que sepamos el 
número de ficha que ocupa en el fichero. 
Para buscar un nombre, por ejemplo 
"Absurdio Príntez Gotodies" tenemos 
que recorrer todo el fichero hasta dar 
con él. Podríamos programarlo de la si- 
guiente forma. 



a$= "Absurdio Príntez Gotodies" 
i=0 
xxx i=i+1 
if (nom$ (i)oa$ and i< = 100) then 
goto xxx 

yyy if (nom$ (i)=a$) then... encontrado 

else... no encontrado 

El programa puede llegar a la línea 
yyy por dos razones: que haya encon- 
trado el nombre (nom$(i)=a$) o que ha- 
yamos recorrido todas las fichas 
(i>100), por lo que el IF... THEN... de la 
línea yyy nos indica si ha encontrado o 
no el nombre dentro del fichero. 

Llega el momento de hacer un progra- 
ma que controle la totalidad del fichero. 
El programa del recuadro adjunto no es 
más que un ejemplo de uso de todo lo 
que hemos visto hasta el momento. Evi- 
dentemente, cada uno debe modificarlo 
para su aplicación particular, añadiendo 
o eliminando cuantas opciones desee. 



DESCRIPCION DEL PROGRAMA 

El programa que acompaña a este ar- 
tículo no pretende, ni mucho menos, ser 
un buen programa de ficheros en me- 
moria. Es tan sólo un ejemplo práctico 
de cómo se utilizan éstos. 

Vamos, por tanto, a comentar cada 
uno de los bloques que lo forman. 

En primer lugar, y tras las líneas REM 
iniciales, inicializamos los tres conjuntos 
que formarán nuestro fichero: nom$, 
edad y tlf$. También colocamos un uno 
en la variable NF. En esta variable alma- 
cenaremos el Número de Ficha sobre la 
que estamos trabajando. Al comenzar el 
programa colocamos un uno, ya que la 
primera ficha que entraremos es la ficha 
uno. 

A partir de la línea 50 nos encontra- 
mos el menú de opciones, que nos mos- 
trará en la pantalla todas las opciones 
posibles, y nos pedirá cuál queremos 
utilizar. Vamos a tratar ahora cada una 
de las opciones. 

En la línea 1 000 vamos a incluir la op- 
ción de DAR DE ALTA una ficha. Repa- 
semos paso a paso el proceso a seguir. 
En primer lugar, cuando utilicemos esta 
opción, la variable NF debe contener el 
número de ficha a introducir. ¿Recor- 
dáis que la inicializamos con el valor 
uno? Pues eso quiere decir, ni más ni 
menos que la primera vez que utilice- 
mos esta opción entraremos los datos 
de la ficha uno. En primer lugar en la lí- 
nea 1030 nos encontramos un INPUT 
que nos pide el nombre de la ficha NF 
(nom$(NF)). En las dos líneas siguientes 
a ésta se hace lo mismo con la EDAD y 
el TELEFONO de esa misma ficha. A 
continuación, en la línea 1060, suma- 
mos uno a la variable NF, con lo que nos 
preparamos para recibir la siguiente fi- 
cha. Por último una cuestión de puro trá- 
mite: preguntarnos si queremos o no en- 
trar una nueva ficha y actuar en conse- 
cuencia. 



39 




A partir de la línea 2000 hemos inclui- 
do la opción de DAR DE BAJA una ficha. 
Como comentábamos anteriormente, 
existen muchos métodos para eliminar 
una ficha de un fichero en memoria; 
pero hemos elegido la más simple en 
este ejemplo. Hemos utilizado este sis- 
tema porque simplifica mucho el progra- 
ma, de forma que lo puedan entender 
aquellos que no dominan demasiado el 
lenguaje BASIC. Para aquellos que do- 
minan y conocen bien el lenguaje deja- 
mos la labor de instalar cualquiera de los 



otros sistemas de borrado. El sistema 
utilizado consiste en preguntar el núme- 
ro de ficha a borrar y, tras haber hecho 
esto, desplazar todas las siguientes un 
puesto hacia atrás. 

La última opción que hemos incluido 
en este sencillo programa es la de con- 
sultar las fichas previamente entradas. 
Evidentemente, antes de consultar he- 
mos de haber entrado algunas fichas, 
(podéis hacer que el programa verifique 
este punto y lo avise si es necesario). 
Hemos dividido la opción en otras dos, 



consulta por nombre y consulta por códi- 
go. En el segundo caso, en la línea 
5000, no hay más que preguntar el códi- 
go e imprimir todos los datos relaciona- 
dos con esa ficha. Hemos incluido una 
verificación, para verificar que el código 
entrado está entre 1 y 1 00. 

Y aquí acaba el programa. Como 
veis, se trata de un simple ejemplo de 
utilización de los ficheros en memoria; 
pero esperemos que sea lo suficiente- 
mente clarificador como para que po- 
dáis realizar vuestros programas de fi- 
cheros. 

Por último, y antes de despedirnos va- 
mos a haceros unas cuantas sugeren- 
cias para vuestros programas de fiche- 
ros. En primer lugar, en un programa de 
ficheros en memoria es muy importante 
verificar todos los posibles errores de 
los usuarios, ya que si el programa se 
para en algún momento pueden perder- 
se todos los datos. Os recomendamos, 
por tanto, que no escatiméis sentencias 
del tipo IF... THEN... allí donde puedan 
ser interesantes. Otra recomendación 
interesante es que utilicéis rutinas de 
entradas de datos en lugar de INPUTs, 
ya que estos últimos producen muchos 
errores si el usuario del programa se 
equivoca. El uso y programación de las 
rutinas de entrada de datos fueron co- 
mentadas en el número de diciembre 
(25-26) de nuestra revista. Por último, 
utilizad todos los REMs que creáis con- 
venientes, ya que seis meses después 
de haber hecho el programa los agrade- 
ceréis. 

Y ahora sí, nos despedimos; pero vol- 
veremos en el siguiente número a tratar 
este interesante tema de los ficheros. 
En el próximo número: LOS FICHEROS 
SECUENCIALES. 



SUSCRIBETE HOY MISMO SI 
QUIERES ESTAREN VANGUARDIA 




La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además ta condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN TRANSFER, S JL 



Nombre y apellidos 



Calle 



N.' 



Ciudad 



Tel. 



— — — 

Deseo suscribirme a la revista 
STJPERJTJEGOS EXTRA MSX 

a partir del número 

FORMA DE PAGO: Mediante talón 
cario a nombre de: 



Provincia 



MANHATTAN TRANSFER, SA. 

C/. Roca i Batlle, 10-18 
08023 Barcelona 

= ~ — 



Muy Importante: para evitar retraaos en la 
recepción de los números rogamos deta- 
lléis exactamente el nuevo numero de los 
distritos postales. Gracias. 



Mas. a. 250 
Ptas. 2.600. 
Ptas. 3.250. 
35 USX S 



España por correo normal 
Europa correo normal 
Europa por avión 
América por avión 
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11 ' 

u ' mtmmmmnmmt 



12 ' t t 

13 ' t Ejeiplo drusa de los t 

14 ' t $ 

15 ' t ficheros en neioria I 

16 * • t 

17 ' t (c) HSX-EXTRA $ 

18 ' t I 

19 • t Autor: Willy Miragall t 

20 ' t t 



21 ' ttttttttttttttttmtttttt 

22 ' 

23 ' 

25 ' tt INICIALIZO CONJUNTOS tt 
30 ' 

40 DIH N0M$ ( 100) , EDAD ( 100) , TLF$ ( 100 ) 
42 NF=1 
45 ' 

50 ' ti MENU DE OPCIONES tt 
55 ' 
60 CLS 

70 PRINT "1.- DAR DE ALTA* 

80 PRINT '2.- DAR DE BAJA" 

90 PRINT "3.- CONSULTAR" 

100 PRÍNT: PRINT 

110 INPUT "¿Qué opción";0P 

120 IF 0P<1 OR 0P>3 THEN GOTO 60 

130 ON OP GOTO 1000,2000,3000 

140 END 

1000 ' 

1005 » tt DAP DE ALTA tt 
1010 ' 
1020 CLS 



1030 INPUT "NOMBRE" : NOM$ (NF) 
1040 INPUT "EDAD"; EDAD (NF) 
1050 INPUT "TELEFONO" : TLF$ (NF) 
1060 NF=NF*1 
1070 PRINT: PRINT 

1080 PRINT "¿Quieres añadir otra (S/N) 
?'5 

1090 A$=INPUT$(1) 

1100 IF A$="S" OR A$="s" THEN 1020 
1110 IF A$="N" OR A$="n" THEN 50 
1120 GOTO 1090 
2000 1 

2005 ' « DAP DE BAJA tt 
2010 ' 
2020 CLS 

2030 INPUT "N-liero de ficha";F 
2040 FOR X=F+1 TO 100 
2050 NOM(X-l)=NOf!$(X) 
2060 EDAD(X-1)=EDAD(X) 
2070 NEXT X 

2080 PPINT "¿Quieres borrar otra (S/N) 
?"! 

2090 A$=INPUT$(1) 

2100 IF A$="S" OR A$="s" THEN 2020 
2110 IF A$="N" OR A$="n" THEN 50 
2120 GOTO 2090 
3000 ' 

3005 ' tt CONSULTAR tt 
3010 ' 
3020 CLS 

3030 PRINT "CONSULTA":PRINT 

3040 PRINT "¿Por noibre (N) o por códi 

go (C)?"; 

3050 A$=INPUT$(1) 



3060 IF A$="N" OR A$="n" THEN 4000 
3070 IF A$="C" OR A$="c" THEN 5000 
3080 GOTO 3050 

3100 PRINT "¿Quieres consultar otra (S 
/N)?'; 

3110 A$=INPUT$(1) 

3120 IF A$="S" OR A$="s" THEN 3020 
3130 IF A$="N" OR A$="n" THEN 50 
3140 GOTO 3110 
4000 » 

4005 ' tt CONSULTA POR NOMBRE tt 
4010 ' 
4020 PRINT 

4030 INPUT "¿Qué noibre";N$ 
4035 PRINT 
4040 1=0 
4050 1=1*1 

4060 IF (NOHKDONt AND K100) THEN G 
OTO 4050 

4070 IF NOM$(I)=N$ THEN PRINT "EDAD:"; 
EDAD (I) ¡PRINT "TELEFONO: ";TLF$(D ELSE 
PRINT "NO ENCONTRADO" 
4080 GOTO 3100 
5000 ' 

5005 ' tt CONSULTA POR CODIGO tt 
5010 ' 
5020 PRINT 

5030 INPUT "¿Qué código";C 
5035 PRINT 

5040 IF C>0 AND C<100 THEN PRINT "NOHB 
RE:";NOH$(C):PRINT "EDAD: ";EDAD(0 :PRI 
NT "TELEFONO: ";TLF$(0 ELSE PRINT "COD 
IGO NO VALIDO" 
5050 GOTO 3100 



VIVE LA APASIONANTE AVENTURA 
DE PILOTAR UN CAZA 

SKY HAWK 

ES UN SIMULADOR ESPECTACULAR 

CON LA GARANTIA MANHATTAN TRANSFER. S.A. ¡ 



TRUCOS DEL 



PROGRAMADOR 




PROTECCION DE 
LISTADOS 

P 



ara proteger los listados de vues- 
tros programas de miradas indis- 
cretas podéis hacer: 



POKE &HFF89, &HC3 
POKE &HFF8A, 0 
POKE &HFF8B, 0 

Este sistema de protección consiste 
en eliminar la instrucción LIST, de modo 
que si alguien intenta hacer LIST, el or- 
denador hace un RESET (se apaga y 
vuelve a encender automáticamente). 

El principal inconveniente de este sis- 
tema de protección es que, si se conoce 
el truco, se conoce la forma de evitarlo, 
ya que haciendo 

POKE &HFF89, &HC9 

se vuelve a conectar la instrucción 
LIST, y se puede ver el listado. 

Sin embargo, si además de la instruc- 
ción LIST eliminamos la instrucción 
POKE, resulta imposible volver a activar 
ninguna de las dos, de modo que vues- 
tros listados estarán definitivamente se- 
guros. 

Teclead el siguiente listado: 
10POKE&HFF89, &C3 
20 POKE &HFF8A, 0 
30 POKE &HFF8B, 0 
40 POKE &HFF93, &C3 
50 POKE &HFF94, 0 
60 POKE &HFF95, 0 

Tras hacer RUN podéis estar seguros 
de que vuestros listados serán inviola- 
bles. 

== 



TAMAÑO DE 
LA PANTALLA 



De todos es conocida la instruc- 
ción WIDTH (o al menos debería 
ser conocida por todos). Esta 
instrucción nos permite definir el núme- 
ro de caracteres por línea en la pantalla. 
Por ejemplo, si hacemos WIDTH 15, 
sólo podremos escribir 15 caracteres 
por línea. 

Sin embargo, el BASIC no nos propor- 
ciona ninguna instrucción que nos per- 
mita hacer algo simiiar con el formato 
vertical. Para conseguir variar el número 
de líneas de la pantalla basta con hacer. 
POKE&HF3B1,n 

donde n es el número de líneas que 
deseamos tenga la pantalla. Si utiliza- 
mos valores mayores que 24 puede pa- 
sar cualquier cosa. ¿Qué mejor invita- 
ción para realizar experimentos y con- 
seguir nuevos trucos? Ya sabéis, a par- 
tir de ahora, pantallas a medida. 



DEEKYD0KE 

En algunas aplicaciones (sobre 
todo en la programación de en- 
samblador desde el BASIC), re- 
sulta muy interesante hacer POKE en 
dos direcciones de memoria consecuti- 
vas. 

Hemos definido una función que reali- 
za esta tarea. Para utilizarla debéis ha- 
cer lo siguiente. 

1 .- Incluir la siguiente línea al inicio de 
vuestros programas. 

10 DEF FNDOKE(X) = PEEK(X) 



+256*PEEK(x+1) 

2.- Para utilizarla no tenéis más que 
hacer: 

PRINT FNDOKE (&HFF89) 

P = FNDOKE (64532) 
etc.. 



S0UNDYLAS 
NOTAS 



Cuando queremos utilizar la ins- 
trucción SOUND para generar 
notas musicales necesitaremos 
saber las frecuencias de cada nota. He 
aquí una tabla que os puede ayudar con 
esta tarea: 



DO 

DO# 

RE 

R#E 

MI 

FA 

FA# 

SOL 

SOL# 

LA 

LA# 

SI 



-13079 

-138'50 

-14678 

-155'44 

-164'80 

-174'61 

-184'91 

-195'93 

-207'48 

-220 

-23298 

-246'94 



Como dato adicional, sabed que, para 
pasar a una escala superior basta con 
multiplicar por 2 estas frecuencias, 
mientras que para pasar a una escala in- 
ferior basta con dividirlas por 2. 
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MUY PRONTO EN TU QUIOSCO. Stop 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 



t 




NOMRRF Y APFI UDOV 


niBFrnnM. 


rnnir.n ptktai , 


PDRI AriON- 


nonviMriA. 


FORMA DE PAGO: 


FNIVID TAI n?M RAMr ARIO n - CONTRA RFFMROI <;0 n .. 



